3 # $Id: apple_rm.in,v 1.1 2002-01-17 05:59:25 srittau Exp $
7 Do an apple remove, remove the resource fork as well
10 die $USAGE if @ARGV < 1;
12 foreach $path (@ARGV) {
14 print STDERR "file $path does not exist\n";
18 ($dir, $file) = &split_dir_file($path);
21 system $cmd || die "error executing $cmd";
23 $cmd = "rm '$dir/.AppleDouble/$file'";
24 system $cmd || die "error executing $cmd";
27 # split a file path into a directory and file name.
31 @path_elems = split(/\//, $path);
33 my $file = pop(@path_elems);
38 $dir = join('/', @path_elems);