in reply to
untarring number of files
perl -le'`tar -zxvf "$_"` for <**/*.tar.gz>'
perl -e'$|=@a=qw
/
; for(;;){$n=abs 49-$c%98; \ printf"%-49s", $a
$c++%4
x$n; select $|,$|,$|,.1; \ print"\010"x49}'
Comment on
Re: untarring number of files
In Section
Seekers of Perl Wisdom