1: #!/usr/bin/perl 2: #rembak.pl 3: #it is useless, but i like Perl to do things for me (-: 4: 5: use Getopt::Long; 6: 7: my $verbose_mode = ''; 8: GetOptions('verbose' => \$verbose_mode); 9: 10: $dirname = `pwd`; 11: chomp $dirname; 12: 13: $counter = 0; 14: open(SIN, "ls *~|") or die "Unable to read list of files!\n"; 15: while(<SIN>){ 16: chomp; 17: system("rm -f $_"); 18: if ($verbose_mode) { print "\t$_ deleted.\n"; } 19: $counter++; 20: } 21: close SIN; 22: print "I have deleted $counter backup files in directory $dirname.\n"
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: remove backups
by grinder (Bishop) on Nov 05, 2002 at 11:57 UTC | |
by pfm (Scribe) on Nov 05, 2002 at 16:06 UTC | |
Re: remove backups
by smitz (Chaplain) on Nov 05, 2002 at 11:32 UTC | |
by Sidhekin (Priest) on Nov 05, 2002 at 12:07 UTC | |
by smitz (Chaplain) on Nov 05, 2002 at 12:16 UTC |
Back to
Craft