Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re: Can a single key have different value assigned to it

by Tux (Abbot)
on Apr 19, 2012 at 09:31 UTC ( #965897=note: print w/replies, xml ) Need Help??

in reply to Can a single key have different value assigned to it

As an alternative, use Text::CSV or Text::CSV_XS and read the whole file in one go:

use Text::CSV_XS; open my $fh, "<", $file or die "$file: $!"; my $csv = Text::CSV_XS->new ({ auto_diag => 1, binary => 1, sep_char = +> "|" }); $csv->column_names (qw( lastname firstname country language )); my $info = $csv->getline_hr_all ($fh);

With your data looking like

Wall|Larry|USA|English Walker|Johnny|Scotland|Scottish

$info (an arrayref: a pointer to a list of hashes) would look like:

[ { country => 'USA', firstname => 'Larry', language => 'English', lastname => 'Wall' }, { country => 'Scotland', firstname => 'Johnny', language => 'Scottish', lastname => 'Walker' } ]

Enjoy, Have FUN! H.Merijn

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://965897]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2018-02-18 22:14 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (257 votes). Check out past polls.