#!/usr/bin/perl -w open(IN,"$infile1") or die "Can't open $infile1" $linecount= 0; %hash = 0; while (my $line=<IN>) { $linecount=$linecount+1; push(@{$hash{$line}},$linecount); }
20080211 Janitored by Corion: Added code tags, as per Writeup Formatting Tips
In reply to hash values by Abhisek
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |