Re: Re: Re: Re: Re: Short (and clever?) CSV-to-AoA

[merlyn]

OK, so here's how I'd write that: {grin}

my @AoA;
while (<DATA>) {
  my @row = split;
  push @{$AoA[$_]}, $row[$_] for 0..$#row;
}

-- Randal L. Schwartz, Perl hacker

[scott]

:) OK, that's obviously a much more standard way to do it than mine... and 20% faster on the one platform I can test it on.

Thanks.

[merlyn]

And yet another way, probably nearly as clean:

my @AoA; 
while (<DATA>) { 
  my $n = 0;
  for (split) {
    push @{$AoA[$n++]}, $_;
  }
}

-- Randal L. Schwartz, Perl hacker