in reply to Simple file to array
write the file with addresses like so:
joey___joey@yahoo.com martha___martha@aol.com
then to load this into 2 arrays ( 1 for names, 1 for email addresses) do something like this:
open (IN, "filename.txt") or die "can't open filename.txt!"; while ( $line = <IN> ) { @parts = split /___/, $line; push @names, $parts[0]; push @addresses, $parts[1]; } close IN;
and now you've got 2 arrays: @names has the names, and @addresses has the addresses. They are indexed by the same number, so joey's name is stored at
$names[0]
and his address is stored at $addresses[0]
another exciting way to do this would be to use a hash.
open (IN, "filename.txt") or die "can't open filename.txt!"; while ( $line = <IN> ) { @parts = split /___/, $line; $name = $pts[0]; $address = $pts[1]; $hash{$name} = $address; } close IN;
Now, to get joey's address, just do this:
print "joey's address is ", $hash{"joey"}, ".\n";
|
---|
In Section
Seekers of Perl Wisdom