| Abigail 2005-02-24, 8:57 pm |
| Leslie Viljoen (leslievNO@SPAMicoc.co.za) wrote on MMMMCXCV September
MCMXCIII in <URL:news:q7Wdna2rMcQmh4PfRVn-uw@is.co.za>:
== perl -wle 'eval {die [[qq [Just another Perl Hacker]]]};; print
== ${${${@}}[$#{@{${@}}}]}[$#{${@{${@}}}[$#
{@{${@}}}]}]'
==
== Abigail?
== How on earth does this work?
It's a simple matter of dereferencing, and getting the last element
of the last element of a two-dimensional array.
I'm just not using any shortcuts, like arrows, negative indices, or
omitting braces.
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
|