Re: Nothin' but punctuation

[tweetiepooh]

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.

[Sue D. Nymme]

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

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

(apologies for the ugly wrapping)