in reply to Automatic zip and delete
Totally untested and very possibly very dangerous :)
find . -type f -name '*V00' | perl -nle '/(.*)V00\z/ and system "zip $ +1.zip $_" && rm $_'
|
|---|
In Section
Seekers of Perl Wisdom
in reply to Automatic zip and delete
Totally untested and very possibly very dangerous :)
find . -type f -name '*V00' | perl -nle '/(.*)V00\z/ and system "zip $ +1.zip $_" && rm $_'
|
|---|