rows to columns issue

Hello,

I tried following code but it is not working.

I have a file with many lines(records) where field separator is space.

I want to convert rows to columns, something like...

source:
a b c d
1 2 3 4

output:
a 1
b 2
c 3
d 4



Here is my test code: It is not working :(



#!/usr/bin/perl

use strict;
use warnings;

my ($IN_FH, $line,$string);

my $rowfile= $ARGV[0];
my $colfile= $rowfile.".row2col";

open ($IN_FH,"<",$rowfile) or die "could not open $rowfile: $!";
#open ($OUT_FH,">",$colfile) or die "could not open $colfile: $!";

my $counter=1;
while ($line = <IN_FH>) {
chomp($line);
my @arr_."$counter"=split(/ /,$line);
$counter++;
}
close $IN_FH;

for (my $i=1;$i<=150;$i++) {
    for (my $x=1;$x<=$counter;$x++) {
        $string .= $arr_."$x".[$i]." ";
    }
    print $string;
}

• rows to columns issue by Rajeev Prasad
• Re: rows to columns issue by John W. Krahn
• Re: rows to columns issue by Jim Gibson
• Re: rows to columns issue by Rajeev Prasad