m8ta
You are not authenticated, login. |
|
{1268} | ||
Simple perl scrip for removing duplicate files within sub-directories of a known depth: #!/usr/bin/perl -w @files = <*>; foreach $file (@files) { @files2 = <$file/*>; foreach $file2 (@files2) { print $file2 . "\n"; `rm -rf $file2/*_1.jpg`; `rm -rf $file2/*_2.jpg`; } } |