My JAPH

#!/usr/bin/perl
*AUTOLOAD = *_;
 
sub _ {
 /:+/; $, .= "$' "
}
print Hacker(Perl(another(&Just)))
[download]

__
Pete

Comment on My JAPH Download Code

Replies are listed 'Best First'.
Re: My JAPH by ambrus (Abbot) on Apr 19, 2004 at 09:21 UTC
Wow! Great idea! So `AUTOLOAD = _;` makes the function name go to `$AUTOLOAD` which is the same as `$_` so you can access it easily with the regexp match and its output, `$'`.	[reply] [d/l] [select]