> I'm not actually printing $_ but doing some more parsing, I wanted to keep
> the example short.
use Data::Dumper;
my %jobs;
while ( <DATA> ) {
/(\d\d\d\d)/ && push @{$jobs{$1}}, $1;
}
print Dumper \%jobs;
__DATA__
|-----
|JT# |
|----|
|1780|
|1776|
|1781|
|1778|
|1785|
|1787|
|1788|
|1783|
|1782|
|1790|
|1793|
|1774|
|1787|
|1788|
|1783|
|1782|
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
