Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
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 ( [id://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++; }

Replies are listed 'Best First'.
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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://76761]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2024-03-19 09:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found