row to column conversion problem

[kuldeep]

Problem statement

Input from a file

010101
110010
010101


to

010
111
000
101
010
101

i.e. Row to column conversion

I was thinking of reading each line as a string and then spitting one
binary elemnt at a time to make big array which can be printed. But i
don't know how to
do that in perl. Is there any function to convert
binary string to hex
spit one bit at a time from a hex value

any better ideas?

thx
Kuldeep

 

[Gunnar Hjalmarsson]

Problem statement

Input from a file

010101
110010
010101


to

010
111
000
101
010
101

i.e. Row to column conversion

my @rows;
while (<FH>) {
my $i = 0;
$rows[$i++] .= $_ for split //;
}

 

[Anno Siegel]

Problem statement

Input from a file

010101
110010
010101


to

010
111
000
101
010
101

i.e. Row to column conversion

my @rows;
while (<FH>) {
my $i = 0;
$rows[$i++] .= $_ for split //;
}

You forgot to chomp the lines.

Anno

 

[Gunnar Hjalmarsson]

my @rows;
while (<FH>) {
my $i = 0;
$rows[$i++] .= $_ for split //;
}

You forgot to chomp the lines.

Yes, I did. Thanks!

my @rows;
while (<FH>) {
chomp;
my $i = 0;
$rows[$i++] .= $_ for split //;
}

 

[Anno Siegel]

my @rows;
while (<FH>) {
my $i = 0;
$rows[$i++] .= $_ for split //;
}

You forgot to chomp the lines.

Yes, I did. Thanks!

my @rows;
while (<FH>) {
chomp;
my $i = 0;
$rows[$i++] .= $_ for split //;
}

Speaking of chomp reminds me of chop:

chomp( my @lines = <DATA>);
my @cols;
unshift @cols, join( '', map chop, @lines) while length $lines[ 0];

Anno