Re^2: Count and List Items in a List


Perl Monk, Perl Meditation
	PerlMonks

Re^2: Count and List Items in a List

by Tech77 (Novice)

on Nov 02, 2005 at 19:32 UTC ( [id://505070]=note: print w/replies, xml )

Need Help??

in reply to Re: Count and List Items in a List
in thread Count and List Items in a List

Hey, This is great! Thank you, and thanks to all the other folks who responded. I did this based on the code:

open (FILE, "userstab.txt") || die "Cannot open file.\n";
open (NEWFILE, ">results.txt") || die "Cannot find or open file for ed
+iting.\n";

my %count;

while (<FILE>) {
    if (m/zaps/i) {
        my $zapschool = (split(/\t/))[4];
        ++$count{$zapschool};
    }
}

foreach (keys(%count)) {
   print NEWFILE "$_: $count{$_}\n";        
}

close NEWFILE;
close FILE;
print "Done!\n";
[download]

WooHoo!