[sourcecode]
\n#!\/usr\/bin\/perl -w<\/p>\n
## A safer program to replace unix command "rm"
\n## Author: Hongyu Zhang<\/p>\n
if($#ARGV < 0) {
\n die("Usage: $0 filename\\n");
\n}<\/p>\n
$dir = `echo ~\/dumpster`;
\nchomp $dir;
\nmkdir $dir unless(-d $dir);<\/p>\n
for($i=0; $i<=$#ARGV; $i++) {
\n croak("Directory $ARGV[$i] not existed") unless(-e $ARGV[$i]);
\n my @arr = split \/\\\/\/, $ARGV[$i];
\n if(-e "$dir\/$arr[$#arr]") {
\n $command = "rm -rf $dir\/$arr[$#arr]";
\n system("$command");
\n croak("error running command: $command") if($?);
\n }<\/p>\n
$command = "mv -fv $ARGV[$i] $dir";
\n system("$command");
\n croak("error running command: $command") if($?);
\n}
\n[\/sourcecode]<\/p>\n","protected":false},"excerpt":{"rendered":"
[sourcecode] #!\/usr\/bin\/perl -w ## A safer program to replace unix command "rm" ## Author: Hongyu Zhang if($#ARGV < 0) { die("Usage: $0 filename\\n"); } $dir = `echo ~\/dumpster`; chomp $dir; mkdir $dir unless(-d $dir); for($i=0; $i<=$#ARGV; $i++) { croak("Directory $ARGV[$i] not existed") unless(-e $ARGV[$i]); my @arr = split \/\\\/\/, $ARGV[$i]; if(-e "$dir\/$arr[$#arr]") { $command = … <\/p>\n