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

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

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

Comment on Re: Re: Re: Re: Re: Short (and clever?) CSV-to-AoA Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: Re: Short (and clever?) CSV-to-AoA by scott (Chaplain) on Apr 24, 2001 at 17:29 UTC
:) 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.	[reply]
Re: Re: Re: Re: Re: Re: Re: Short (and clever?) CSV-to-AoA by merlyn (Sage) on Apr 24, 2001 at 18:34 UTC
And yet another way, probably nearly as clean: `my @AoA; while (<DATA>) { my $n = 0; for (split) { push @{$AoA[$n++]}, $_; } }` [download] -- Randal L. Schwartz, Perl hacker	[reply] [d/l]