Re^2: printing unequal sized lists side by side

+ + (esp for the economy of solving OP's problem withOUT adding module overhead) ...but with a minor nitpick.

Consider your output, if @array1 and @array2 are swapped, making @array2 the longer of the two.

But one can make that output slightly more elegant (a matter of taste, of course; YMMV) by using the ternary again in print statements which make visual allowance for non-existent indices:

for(my $index=0; $index<$max_array_length; $index++) {
    print $array1[$index] ? $array1[$index] : '  ';
    print ", ";
    print $array2[$index] ? $array2[$index] : '-';
    print "\n";
}
[download]

Comment on Re^2: printing unequal sized lists side by side Download Code

Replies are listed 'Best First'.
Re^3: printing unequal sized lists side by side by nad04299 (Initiate) on May 28, 2011 at 13:00 UTC
Thanks. This is close to what I had been doing and it helps greatly to see it in a post ;) I do tend to prefer to avoid adding modules if only for peace of mind that the customer can push the scripts around systems w/o fear of it breaking. I appreciate the help :)	[reply]
Re^3: printing unequal sized lists side by side by wind (Priest) on May 28, 2011 at 17:13 UTC
Instead of the ternary operator, might I recommend the "defined-or" test instead. It's more succinct and it doesn't fail on a value of '0'. `print $array1[$index] // ' ';` [download]	[reply] [d/l]