[JaxPM] Yo !

[iudicium ferat]

On the jacksonville-pm-list; Jax.PM'er iudicium ferat <sneex at bellsouth.net> wrote -

A small, likely inaccurate, explanation...


# returns the TYPE of reference, in this
# case the Ref is pointing to an ARRAY

$_ = ref \@_;


# ref \* returns the TYPE of reference, in this
# case the Ref is pointing to a GLOB
# STDOUT forces the resulting output of the
# immediately previous statement, in this case
# ref \@_ to be part of the "string" being truncated.

# The -2 characters and the ++$| (which is now 1)
# causes the Y from ARRAY to be added to the now
# LowerCased o from GLOB -- which says "Yo"

print lc substr(ref \*STDOUT, -2, ++$|) . $/ if print chop;

# What I want Greg to explain is how 'chop' cuts
# off the beginning of ARRAY (the ARRA portion?)

# Cheers! :)
# -Sx-


Jax.PM Moderator's Note:
This message was posted to the Jacksonville Perl Monger's Group listserv.
The group manager can be reached at -- owner-jacksonville-pm-list at pm.org
to whom send all praises, complaints, or comments...