I also tried with this code
but I obtained:my $count3="-1"; foreach my $lane (@array) { if ($lane eq "--\n"){$count3++;print "\t" x $count3 . "0\n";} else {print "\t" x $count3 . "$lane"} }
0 0.0175 0.0483 0.0507 "\t" 0 "\t" 0.0471 "\t" 0.0483 "\t\t" 0 "\t\t" 0.0287 "\t\t\t" 0
In reply to Re^3: array in different columns
by Muflone82
in thread array in different columns
by Muflone82
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |