Re^2: Can this script be Optimized?

Thanks alot NetWallah, I knew there was no need for all the multiples for loops I was using.
Timtoday takes the day.

Comment on Re^2: Can this script be Optimized?

Replies are listed 'Best First'.
Re^3: Can this script be Optimized? by NetWallah (Canon) on May 01, 2014 at 06:32 UTC
OK - one final (short/cryptic) version: `print join( ",\t" => my @kk=sort keys %$Hash ), $/; for (my $i=0; scalar grep {+defined} (my @v=map {$Hash->{$_}[$i] } @kk + ) ; $i++){ print join ("\t", map {defined $_ ? $_:""}@v),"$/"; }` [download] What is the sound of Perl? Is it not the sound of a wall that people have stopped banging their heads against? -Larry Wall, 1992	[reply] [d/l]