http://www.perlmonks.org?node_id=767654


in reply to Nothin' but punctuation

Truly ++.

I do however get the following as output on Perl 5.10 on Solaris/SPARC.

$# is no longer supported at -e line 1. $* is no longer supported at -e line 1. Just another Perl hacker.

Replies are listed 'Best First'.
Re^2: Nothin' but punctuation
by Sue D. Nymme (Monk) on Jun 04, 2009 at 14:31 UTC

    Rats! Well, here's a slightly modified form that doesn't give those warnings:

    `$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,${^^},$~,$@,$:,@% +)=( $!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$",),$=++;$.++;$.++ +;$_ ++;$_++;($_,$\,$,) = ($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,${^^});$, +++; $,++;;$^|=$";`$_${\}$,$/$:$;$~$@$%[$?]$.$~$@${^^}$%[$?]$;$\$"$^$~$@.>& +$=`

    (apologies for the ugly wrapping)