contrib/shell_utils/apple_rm.in

   1 #!@PERL@
   2 #
   3 # $Id: apple_rm.in,v 1.1 2002-01-17 05:59:25 srittau Exp $
   4
   5 $USAGE = <<USAGE;
   6 Usage: $0 filename ...
   7 Do an apple remove, remove the resource fork as well
   8 USAGE
   9
  10 die $USAGE if @ARGV < 1;
  11
  12 foreach $path (@ARGV) {
  13     if (!-f $path) {
  14         print STDERR "file $path does not exist\n";
  15         die $USAGE;
  16     }
  17
  18     ($dir, $file) = &split_dir_file($path);
  19
  20     $cmd = "rm '$path'";
  21     system $cmd || die "error executing $cmd";
  22
  23     $cmd = "rm '$dir/.AppleDouble/$file'";
  24     system $cmd || die "error executing $cmd";
  25 }
  26
  27 # split a file path into a directory and file name.
  28 sub split_dir_file {
  29     my $path = shift;
  30
  31     @path_elems = split(/\//, $path);
  32
  33     my $file = pop(@path_elems);
  34     my $dir;
  35     if (!@path_elems) {
  36         $dir = '.';
  37     } else {
  38         $dir = join('/', @path_elems);
  39     }
  40
  41     $dir, $file;
  42 }