Re: CSV manipulation with perl

Ignoring the problem of parsing CSV, is this what you're looking for?

#!/perl/bin/perl

use Smart::Comments;
use strict;
use warnings;

my $_raa;
my $i=0;
while (<DATA>) {
    chomp;
    my @a=split(',');
    for my $j (0..$#a) { $_raa->[$j][$i]=$a[$j] };
    $i++;
     };
### $_raa
__DATA__
123,"text",66,"more text"
124,"text1",67,"more text1"
125,"text2",68,"more text2"
[download]

which yields

### $_raa: [
###          [
###            '123',
###            '124',
###            '125'
###          ],
###          [
###            '"text"',
###            '"text1"',
###            '"text2"'
###          ],
###          [
###            '66',
###            '67',
###            '68'
###          ],
###          [
###            '"more text"',
###            '"more text1"',
###            '"more text2"'
###          ]
###        ]
[download]

Comment on Re: CSV manipulation with perl Select or Download Code

Replies are listed 'Best First'.

Re^2: CSV manipulation with perl
by Tanktalus (Canon) on Mar 09, 2009 at 22:23 UTC

As a side note, I'd get rid of the $i and use what perl offers: push. (I'd also use an array rather than a reference to the array, but that's minor.)

my @_raa;
while (<DATA>) {
    chomp;
    my @a=split(','); # use Text::CSV_XS here.
    push @{$_raa[$_]}, $a[$_] for 0..$#a;
};
[download]

[reply]
[d/l]


Clear questions and runnable code get the best and fastest answer
	PerlMonks