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);
TIA,
David M. Funk
President/CEO
Tivoli Certified Enterprise Consultant
Specializing in Network and Systems Management Solutions
Trinity Solutions
604 Cassandra Dr.
Suite 204
Cranberry Twp., PA 16066
Phone: 724-316-0721
Fax: 724-772-7889
email: [EMAIL PROTECTED]
<<attachment: winmail.dat>>
_______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
