Re^4: Array_ref into Array

That would work, one question to you would be:

my $ref_a = [
             [ qw/a b c/ ],
             [ qw/d e f/ ],
             [ qw/g h i/ ],
             [ qw/x y z/ ],
             [ qw/3 4 5/ ],
             [ qw/6 7 9/ ],
            ];

my $ref_b = [
             [ qw/j k l/ ],
             [ qw/m n o/ ],
             [ qw/p q r/ ],
            ];

for my $i (0..$#$ref_a) {
    push @{$ref_a->[$i]}, @{$ref_b->[$i]};
}
[download]

How could I assign maybe a empty value in order not get an error, if the results from one of the array_ref will be like the sample code here.

Comment on Re^4: Array_ref into Array_ref Help. Download Code

Replies are listed 'Best First'.
Re^5: Array_ref into Array_ref Help. by lostjimmy (Chaplain) on Apr 22, 2009 at 19:32 UTC
I wouldn't be too upset if you tried out this one on your own...	[reply]
Re^6: Array_ref into Array_ref Help. by Anonymous Monk on Apr 22, 2009 at 19:44 UTC
That's right, but the reason to ask is that what and where would be the more logical place to check for inconsistency, check first if the element is empty or undef and where to assign a empty value so when displaying the report it would show a blank space on the report.	[reply]
Re^7: Array_ref into Array_ref Help. by lostjimmy (Chaplain) on Apr 22, 2009 at 19:52 UTC
In the interest of not learning... `my $max = $#$ref_a > $#$ref_b ? $#$ref_a : $#$ref_b; my @blank_a = ("") x @$ref_a; my @blank_b = ("") x @$ref_b; my @result = map { [ $ref_a->[$_] ? @{$ref_a->[$_]} : @blank_a, $ref_b->[$_] ? @{$ref_b->[$_]} : @blank_b ] } 0..$max;` [download] By the way, anyone have a prettier way to do this?	[reply] [d/l]