version 1.1, 2002/08/09 19:49:30
|
version 1.2, 2002/08/13 20:50:14
|
Line 38 my @dirs=`find <TARGET /> -type d `;
|
Line 38 my @dirs=`find <TARGET /> -type d `;
|
my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); |
my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs); |
foreach my $udir (@userdirs) { |
foreach my $udir (@userdirs) { |
chomp($udir); |
chomp($udir); |
print("$udir \n"); |
|
if (-e "$udir/resevaldata.hist") { |
if (-e "$udir/resevaldata.hist") { |
unlink("$udir/resevaldata.hist"); |
unlink("$udir/resevaldata.hist"); |
} |
} |