Thanks for the code. It worked. In fact, yesterday, I wrote a similar type of code (which worked fine-pasted below). But, I was trying to get it done through two dimensional arrays.
my $tfields; while (my $row=$csv->getline($FILE1)) { for (my $i = 0; $i < @$row; $i++){ push (@{$tfields -> [$i]}, $row ->[$i]); } } foreach my $row (@$tfields) { $csv->print ($FILE2, $row); }
In reply to Re^2: Transpose of an array
by bluray
in thread Transpose of an array
by bluray
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |