Re^8: array in different columns

PERFECT! Among my array I insert at the start of the code:

chomp @array
[download]

because I have the newline. Thank you to everybody! ...if you want can you explain me the code?...

Comment on Re^8: array in different columns Download Code

Replies are listed 'Best First'.
Re^9: array in different columns by Marshall (Canon) on Nov 24, 2016 at 09:04 UTC
The previous post by poj prints: `0 0.0175 0 0.0483 0.0471 0 0.0507 0.0483 0.0287 0` [download] I don't see anywhere in your spec where these extra zeroes are required or even desired! Please be very specific about the requirements. I recommend something like this: `#!/usr/bin/perl use strict; use warnings; my @array = qw( -- 0.0175 0.0483 0.0507 -- 0.0471 0.0483 -- 0.0287 --); my @twod_array; my $i_col = -1; my $i_row; foreach my $ele (@array) { if ($ele eq '--') { $i_col++; #new column starts $i_row = $i_col; next; } $twod_array[$i_row++][$i_col] = $ele; } foreach my $row_ref (@twod_array) { print join ("\t",@$row_ref),"\n"; } __END__ 0.0175 0.0483 0.0471 0.0507 0.0483 0.0287` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^9: array in different columns
by Marshall (Canon) on Nov 24, 2016 at 09:04 UTC

poj

0
0.0175    0
0.0483    0.0471    0
0.0507    0.0483    0.0287    0
[download]

I recommend something like this:

#!/usr/bin/perl
use strict;
use warnings;

my @array = qw(
-- 0.0175 0.0483 0.0507
-- 0.0471 0.0483
-- 0.0287
--);

my @twod_array;

my $i_col = -1;
my $i_row;

foreach my $ele (@array)
{
   if ($ele eq '--')
   {
      $i_col++;         #new column starts
      $i_row = $i_col;
      next;
   }
   
   $twod_array[$i_row++][$i_col] = $ele;
}

foreach my $row_ref (@twod_array)
{
   print join ("\t",@$row_ref),"\n";
}


__END__
0.0175
0.0483    0.0471
0.0507    0.0483    0.0287
[download]

[reply]
[d/l]
[select]