in reply to Count and List Items in a List

while (<FILE>) {
    @zapschool = split (/\t/);
    if (m/zaps/i) {
        print NEWFILE "$zapschool[4]\n";        
    }
}

[download]
is slower than 
while (<FILE>) {
    if (m/zaps/i) {
        @zapschool = split(/\t/);
        print NEWFILE "$zapschool[4]\n";        
    }
}

[download]
which can be made more readable as 
while (<FILE>) {
    if (m/zaps/i) {
        my $zapschool = (split(/\t/))[4];
        print NEWFILE "$zapschool\n";        
    }
}

[download]
And the solution is 
my %count;

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

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

[download]

Replies are listed 'Best First'.
Re^2: Count and List Items in a List
by Tech77 (Novice) on Nov 02, 2005 at 19:32 UTC
    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!
[reply]
[d/l]

In Section Seekers of Perl Wisdom