Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re: how do I open each line of a text file into seperate arrays?

by turnstep (Parson)
on May 01, 2001 at 01:26 UTC ( #76761=note: print w/ replies, xml ) Need Help??


in reply to how do I open each line of a text file into seperate arrays?

Here's a complete program. Basically the same as bbfu with a couple of enhancements. Adding a -1 to the split allows for null values to still be added, such as:

foo|bar||||shazam
and chomping the line removes the newline, otherwise it will end up in the last element of each array.

my $myfile = "BigOldFile.psv"; ## pipe-separated values :) open(MYFILE, $myfile) or die "Could not open $myfile: $!\n"; my @lines = []; while(<MYFILE>) { chomp; push @lines, [split(/\|/, $_, -1)]; } ## This will show you the format: my $line=1; for (@lines) { print "Line $line: $_\n"; for (@$_) { print "*$_*\n"; ## Stars are to demonstrate null values } $line++; }


Comment on Re: how do I open each line of a text file into seperate arrays?
Select or Download Code
Re: Re: how do I open each line of a text file into seperate arrays?
by lindex (Friar) on May 01, 2001 at 02:39 UTC
    open(my($fd),"./file") or die($!); @a=map{split('|',$_)}<$fd>; close($fd);
    my 2 cents :)


    lindex
    /****************************/ jason@gost.net, wh@ckz.org http://jason.gost.net /*****************************/

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (7)
As of 2014-11-23 12:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (131 votes), past polls