Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Count and List Items in a List

by holli (Monsignor)
on Nov 01, 2005 at 16:13 UTC ( #504627=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
        if (m/zaps/i) {
            @zapschool = split (/\t/);
            print NEWFILE "$zapschool[4]\n";        
        }
    
  2. or download this
    C:\>perl -naF/\t/ -e "print qq($F[4]\n) if /zaps/" infile>outfile
    
  3. or download this
    C:\>perl -naF/\t/ -e "$hash{$F[4]}++ if /zaps/;END{print qq($_\t$hash{
    +$_}\n) for sort keys %hash}" infile>outfile
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://504627]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (13)
As of 2014-08-29 16:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (281 votes), past polls