alekto wrote:
Hi,

Hello,

I got this script that is executed like this: ./colstat.pl -f
<filename> -e ; (specifywhat to use in the split function in order to
divide the columns)
I would like to put each line from the input file into an array, and I
want to put this array into a hash, where the column number equals to
the hash key/pointer, so the print would look somehow like this:

nr 1: 34 67 927 536 8 92
nr 2: 4 563 1 56789 983
nr 3: 43 02 903 63 73 893
 .
 .
 .
 .
 .

Following is the script I got this far, this does not print out the
output I just described, but an output looking like this:
6: 34 4 78 1 5463

The part with the probem:


while ( $line = <FILE> ) {
    chomp $line;
    @dataarray = split /$var/,$line;
    $column = $dataarray[$c];
    push(@array,$column);
    $counter++;

}
$hash{$counter + 1} = [ @array ];

for my $nr ( keys %hash ) { print sort "$nr: @{ $hash{$nr} }\n"; }

It is hard to tell what exactly you want without seeing what your data looks like.

Perhaps you need something like this:

perl -F';' -lane'print "$.: @F"' <filename>



John
--
The programmer is fighting against the two most
destructive forces in the universe: entropy and
human stupidity.               -- Damian Conway

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/


Reply via email to