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 unique line
in $prevfile, up to a line that has 'BREAK' in it. The values of the
hashes will contain the number of times that a line occurs. One way to
look for duplicate lines in a file.
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
