stasis-aries-wal/utilities/delete_log

11 lines
205 B
Perl
Executable file

#!/usr/bin/perl -w
use strict;
my $dir = shift || "stasis_log";
my @files = `ls $dir/log-chunk-????????????????????`;
foreach my $f (@files) {
chomp $f;
print "$f -> $f~\n";
system("mv $f $f~");
}