home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / unix / unixcmds_1 / BIN / mv < prev    next >
Encoding:
Text File  |  1993-10-22  |  381 b   |  25 lines
  1. #!/usr/local/bin/perl
  2.  
  3. die "Usage: $0 from to\n" unless ($#ARGV == 1);
  4. @ARGV = <@ARGV>;
  5.  
  6. ($from, $to) = @ARGV;
  7.  
  8. if (-d $to)
  9. {
  10.     $leaf = $from;
  11.     $leaf = substr($leaf, rindex($leaf, '.')+1) if ($leaf =~ /\./);
  12.     $to = "$to.$leaf" if (-d $to);
  13. }
  14.  
  15. if (-e $to)
  16. {
  17.     printf("$0: Overwrite $to ? ");
  18.     $_ = <STDIN>;
  19.     if (/^[Yy]/)
  20.     {
  21.         system("wipe $to r~cf~v");
  22.     }
  23. }
  24. exec("rename $from $to");
  25.