Could it be that among those many rows and columns some of the data contains a comma? If that is the case your split just ain't going to do the job for you - you will get too many rows in the result and some of them will have too few columns.

You really should be using Text::CSV or Text::xSV to do the heavy lifting of parsing and generating CSV files.

Oh, and as an aside, always use strictures (use strict; use warnings; - see The strictures, according to Seuss).

Thanks, I like "The strictures, according to Seuss":-)

it can't convert all columns to row.

What happens when "it cannot..."?

Error messages? Out-of-memory? Other?

No, I don't see any error messages. It turns out there is wrong logic in my program.

It looks to me like you have your iterations over rows and columns ($z and $v) reversed. Maybe something like the following would work better.

use strict;
use warnings;

my @data;
while (<DATA>) {
    chomp;
    push(@data, [ split /,/ ]);
}

my $cols = $#{$data[0]};
my $rows = $#data;

foreach my $col (0..$cols) {
    foreach my $row (0..$rows) {
        print "$data[$row][$col],";
    }
    print "\n";
}
__DATA__
1.1,1.2,1.3,1.4,1.5
2.1,2.2,2.3,2.4,2.5
3.1,3.2,3.3,3.4,3.5
[download]

Are you sure every row has the same number of fields?

Yes, you are right. I made logic mistake. I should loop column number first, then loop row number inside it. My testing data happens to be a square matrix, same columns and row numbers, which hides the logic error.

After correcting it, all CSV files are processed correctly.

Cheers,

Also, inverting = select the rows and columns you want to switch, cut, paste special, transpose

Of course, if your tools cannot deal with that many columns, you won't even get to the stage where you can select...

Thanks for posting that. I didn't realize that 2007 and OpenOffice could now handle that many columns. I just tried it with 10,000 columns.

Thanks for your information. Microsoft is doing right thing this time:-)

If I understand correctly, what you need is a PIVOT. Here is a way to do so:

$ cat pivot.pl
#!/pro/bin/perl

use strict;
use warnings;

use Text::CSV_XS;
use Spreadsheet::Read;

my $ss  = ReadData (shift)->[1];
my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1, eol => "\r
+\n" });

$csv->print (*STDOUT, [@{$ss->{cell}[$_]}[1..$ss->{maxrow}]]) for 1 ..
+ $ss->{maxcol};
$ cat test.csv
a,b,c,d,e,f
1,2,3,4,5,6
2,3,4,5,6,7
3,4,5,6,7,8
4,5,6,7,8,9
$ perl pivot.pl test.csv
a,1,2,3,4
b,2,3,4,5
c,3,4,5,6
d,4,5,6,7
e,5,6,7,8
f,6,7,8,9
$
[download]

Thanks, I will consider to install these modules if similar requests keep coming:-)