Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

uksza's scratchpad

by uksza (Abbot)
on Sep 03, 2004 at 21:28 UTC ( #388419=scratchpad: print w/replies, xml ) Need Help??

#!/usr/bin/perl #getting while (<stdin>) { chomp; s/\s{2,}//g; s/[^a-zA-z\s]//g; last if ( $_ eq "" ) ; if (m/\w\s\w/) { push @words, (split); next; } push @words, $_; } #counting foreach (@words) { $list{$_} = length; } #printing @result = sort { $list{$b} <=> $list{$a} } keys %list; print "\n"; foreach (@result) { print "$_\n";

Vim as a Perl IDE (perl-support.vim)
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (3)
As of 2018-09-23 14:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Eventually, "covfefe" will come to mean:













    Results (191 votes). Check out past polls.

    Notices?
    • (Sep 10, 2018 at 22:53 UTC) Welcome new users!