Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Two dimension array from text file

by thezip (Vicar)
on Jul 11, 2008 at 16:44 UTC ( #697016=note: print w/replies, xml ) Need Help??

in reply to Two dimension array from text file

Try this to see if it's what you need:

use strict; use warnings; use Data::Dumper; my @array = (); while (my $line = <$ifh>) { push(@array, [ (split(/\t/, $line))[0,3,7] ]); } print Dumper(\@array);

Update: BTW, in your spec, you say the 1st, 4th, and 8th column, but in your output data you show the 1st, 3rd and 8th columns. Which is it?

Update: I see that you have updated your root node to reflect the corrected indices. Generally, it is considered to be polite to indicate (via an Update: such as this) that you have changed the wording/context of your node. Otherwise, it makes the respondents look like *they* made the mistake.

Your wish is my commandline.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2017-11-22 23:56 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (327 votes). Check out past polls.