plrm

   1 #!/usr/bin/perl
   2 ###APPNAME:     plrm
   3 ###APPAUTHOR:   xiaoranzzz
   4 ###APPDATE:     Fri Sep 14 06:56:55 2007
   5 ###APPVER:      0.1
   6 ###APPDESC:     Delete perl script
   7 ###APPUSAGE:    (name)
   8 ###APPEXAMPLE:  plrm plrm
   9 ###APPOPTION:
  10 use strict;
  11 use lib $ENV{XR_PERL_MODULE_DIR};
  12 use MyPlace::Script::ENV qw/$SRC_DIR $BIN_DIR/;
  13 use MyPlace::Script::Usage qw/help_even_empty/;
  14
  15 exit 0 if help_even_empty($0,@ARGV);
  16
  17 my $name=$ARGV[0];
  18 #$name =~ s/\.pl$//;
  19 my $src=$SRC_DIR . "/" . $name;# . ".pl";
  20 my $bin=$BIN_DIR . "/" . $name;
  21
  22 sub delete(\$) {
  23     my $filename=shift;
  24     (!$filename) && return;
  25     foreach my $fn ($filename,"$filename.pl") {
  26         next unless(-f $fn);
  27         print ("Deleting $fn ...");
  28         if(unlink $fn) {
  29             print ("  [Ok]\n");
  30         }
  31         else {
  32             print "\n$!\n";
  33         }
  34         last;
  35     }
  36 }
  37
  38 &delete($bin);
  39 &delete($src);
  40
  41
  42
  43