Mark Funk wrote:
What exactly does the following Perl code do?
%hash=();
open(PREVFILE, $prevfile) or die(Unable to open previous file);
while(PREVFILE) {
chomp;
last if /BREAK/;
$seen{$_}++;
}
close(PREVFILE);
At the end of the loop, The %seen hash keys will have every
It counts the number of occurances of all lines in a file until a directive
BREAK.
a
v
b
a
a
BREAK
-
Then, $seen{a} = 3; $seen{v} = 1; $seen{b} = 1;
On 8/11/07, Todd Beverly [EMAIL PROTECTED] wrote:
Mark Funk wrote:
What exactly does the following Perl code do?
%hash=();
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Mark Funk
Sent: Wednesday, August 08, 2007 14:59
To: perl-win32-users@listserv.ActiveState.com
Subject: hash table question
What exactly
Mark Funk asked:
What exactly does the following Perl code do?
%hash=();
open(PREVFILE, $prevfile) or die(Unable to open previous file);
while(PREVFILE) {
chomp;
last if /BREAK/;
$seen{$_}++;
}
close(PREVFILE);
Exactly, the code does nothing