in reply to Hash of Hashes not filling - only using last line of file
You have to put your hash out of the while loop.
#!/usr/bin/perl -w use strict; use Data::Dumper; my %IACISBN_ENUM; while ( my $line = <DATA> ) { chomp($line); my ( $IacIsbn, $Title, $EPI, $BundleCode ) = split( "\t", $line ); $IACISBN_ENUM{$IacIsbn} = { 'Title' => $Title, 'EPI' => $EPI, 'Bundle' => $BundleCode }; } print Dumper \%IACISBN_ENUM; __END__ IacIsbn Title EPI BundleCode
hth,
PooLpi
The stone that the builder refused, will always be the head cornerstone.
[ Robert Nesta MARLEY ]
[ Robert Nesta MARLEY ]
In Section
Seekers of Perl Wisdom