foo|bar||||shazam
[download]

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++;
}
[download]

open(my($fd),"./file") or die($!);
@a=map{split('|',$_)}<$fd>;
close($fd);
[download]

my 2 cents :)


lindex

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/
[download]

You could use an array of arrays:

# open FILE
while(<FILE>) {
  # The []'s make an anonymous array, so each element
  # of @lines is actually an array-ref.
  push @lines, [split /\|/, $_];
}

print "Yep.\n" if $lines[0][0] eq 'foo'; # it will
[download]

HTH.

Upd: oops, fixed my array indexes. :-)

Upd2: damn, what was I thinking? Changed @lines = [...] to proper push.

Upd3: ARGH!!! Thanks for the eq catch, buckaduck. That's what I get when I try to rush a post... :-(

bbfu
Seasons don't fear The Reaper.
Nor do the wind, the sun, and the rain.
We can be like they are.

  print "Yep.\n" if $lines[0][0] == 'foo';
[download]

I think you mean:

print "Yep.\n" if $lines[0][0] eq 'foo';
[download]

Just when you thought the updates were over...

buckaduck

Yet Another Use for SuperSplit!

use SuperSplit;

$AoA = supersplit_open( /\|/, $filename );
[download]

...and it's all there in $AoA.

Jeroen
"We are not alone"(FZ)

use strict;

open (INPUT, "myFile.txt") || die "Couldn't open file: $!\n";

my @majorArray;
while (<INPUT>)
{
   my @minorArray = split('\|', $_);
   push @majorArray, \@minorArray;
}
[download]

my $arrayRef = $majorArray[0];
foreach my $temp (@{$arrayRef})
{
   print $temp,"\n";
}
[download]

foreach my $item (@majorArray)
{
   foreach my $subitem (@{$item})
   {
      print $subitem,"\n";
   }
}
[download]

open(IN, "<foo.txt");
# This line does the work.
# <IN> reads lines from the file, feeding that list to the map.
# split(/\|/, $_) creates a list of the the pipe-delimted elements
# [   ]  creates an anonymous array ref to that list.
# Finally the map returns the resulting list of array refs.
my @foo = map { [(split(/\|/, $_))] } <IN>;
close(IN);

# Just to prove that it worked.
foreach (@foo) {
                print join(' -- ', @$_), "\n";
}
[download]

hello|world

ignore that closing parenthesis....