in reply to Re: How do I gather and output info about a file's contents? (Golf)
in thread How do I gather and output info about a file's contents?

Low hanging fruit:

perl -aplwe"$w+=@F;$c+=length}{$_=qq[\t$. $w ${\($c+$.*2)} $ARGV]"

[download]

Updated: There seems to be a space missing before $ARGV

  • Comment on Re^2: How do I gather and output info about a file's contents? (Golf)
  • Download Code

In Section Seekers of Perl Wisdom