more useful options | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
0: #!/usr/bin/perl 1: #rembak.pl 2: #it is useless, but i like Perl to do things for me (-: 3: 4: use Getopt::Long; 5: 6: my $verbose_mode = ''; 7: GetOptions('verbose' => \$verbose_mode); 8: 9: $dirname = `pwd`; 10: chomp $dirname; 11: 12: $counter = 0; 13: open(SIN, "ls *~|") or die "Unable to read list of files!\n"; 14: while(<SIN>){ 15: chomp; 16: system("rm -f $_"); 17: if ($verbose_mode) { print "\t$_ deleted.\n"; } 18: $counter++; 19: } 20: close SIN; 21: print "I have deleted $counter backup files in directory $dirname.\n" In reply to remove backups by pfm
|
|