Very Computer

I want to intelligently set up enscript (with a font size,
with portrait or landscape, and with -2 or not) depending on
how long the lines are.  But I'm willing to accept some line
wraps, just not too many.  What's the best way to get some
output like:

  0:   50
  1:    5
  . . .
  46: 300
  . . .
  80:  23
  . . .
  110:  2

where the first number is the number of characters in the
line, and the second number is the number of lines in the
file with that line length?

How would you do this?  In awk, perl, or any other tool?

Stan> I want to intelligently set up enscript (with a font size,
Stan> with portrait or landscape, and with -2 or not) depending on
Stan> how long the lines are.  But I'm willing to accept some line
Stan> wraps, just not too many.  What's the best way to get some
Stan> output like:

Stan>   0:   50
Stan>   1:    5
Stan>   . . .
Stan>   46: 300
Stan>   . . .
Stan>   80:  23
Stan>   . . .
Stan>   110:  2

Stan> where the first number is the number of characters in the
Stan> line, and the second number is the number of lines in the
Stan> file with that line length?

Stan> How would you do this?  In awk, perl, or any other tool?

        #!/usr/bin/perl
        $length{length}++ while <>;
        print map "$_: $length{$_}\n",
                sort { $a <=> $b } keys %length;

Or, in 1.5 lines:

perl -ne '$x{length}++;' \
        -e 'END {print map "$_: $x{$_}\n", sort { $a <=> $b } keys %x; }'

print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $18,720.69 collected, $172,159.85 spent; just 789 more days

--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying

Web: <A HREF="http://www.teleport.com/~merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me

 >I want to intelligently set up enscript (with a font size,
 >with portrait or landscape, and with -2 or not) depending on
 >how long the lines are.  But I'm willing to accept some line
 >wraps, just not too many.  What's the best way to get some
 >output like:
 >
 >  0:   50
 >  1:    5
 >  . . .
 >  46: 300
 >  . . .
 >  80:  23
 >  . . .
 >  110:  2
 >
 >where the first number is the number of characters in the
 >line, and the second number is the number of lines in the
 >file with that line length?
 >
 >How would you do this?  In awk, perl, or any other tool?

#!/bin/sh

awk '{++line[length($0)]}
END{
        for (var in line)
                printf "%d : %d\n", var, line[var]

Quote:}' $1 |sort

--

On 22 July, 1996, at 6:00 pm GMT, everyone in the world    
just START HUMMING.  Those who don't know will freak.