Re: Using Split to load a hash

I'm not sure what you have in mind. This may be the kind of example you want, of a split into a hash. If so, you can then change the "for" loop to a "while(<FILEHANDLE>)".

my $txt=<<'TEXT_END';
nameone, addr1 info (without commas in it) 
nametwo, address two, city (with a comma)
namethree, address three fields
TEXT_END

my %info;
my ($name,$addr);

for (split "\n",$txt) {
   ($name,$addr) = split ',',$_,2;
   $info{$name} = $addr;
} 
my ($key,$val);
while (($key,$val)= each(%info)) {
   print "$key->$val\n";
}
[download]

Update: Added ",$_,2" to the split, to handle addresses with a comma, and modified test cases acordingly

Comment on Re: Using Split to load a hash Download Code

Replies are listed 'Best First'.
Re^2: Using Split to load a hash by izut (Chaplain) on Aug 19, 2006 at 17:59 UTC
Another possible method (borrowed from "Perl for System Administrators"): `my %info = split /,\|\n/, $txt;` [download] This will possible fail if the second field has comma. Maybe we can work it out to prevent that :-) Igor 'izut' Sutton your code, your rules.	[reply] [d/l]