Re: Nothin' but punctuation


P is for Practical
	PerlMonks

Re: Nothin' but punctuation

by tweetiepooh (Hermit)

on Jun 02, 2009 at 15:54 UTC ( [id://767654]=note: print w/replies, xml )

Need Help??

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.
[download]

Comment on Re: Nothin' but punctuation Download Code

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:

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

(apologies for the ugly wrapping)

[reply]
[d/l]

In Section Obfuscated Code