Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Simple file to array

by waxmop (Beadle)
on Jul 08, 2002 at 20:30 UTC ( #180311=note: print w/ replies, xml ) Need Help??


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";


Comment on Re: Simple file to array
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://180311]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2014-11-24 00:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (134 votes), past polls