in reply to Re^2: merging anonymous arrays
in thread merging anonymous arrays
There is always a way :)
When's the last time you used duct tape on a duct? --Larry Wall
my @key = map { [qw/A B C D E F G H/]->[$_], [qw/7 6 5 4 3 2 1 0/]->[$_] } 0..open(F,$0)&&($_=join('',<F>))&&/map\s*{\s*(\[.*?\])/s&& eval"\$#{$1}"; print "@key"; die "Not recommended for production code!!";
When's the last time you used duct tape on a duct? --Larry Wall
|
---|
In Section
Seekers of Perl Wisdom