No alpha-num

To run this one-line offuscated code you need to set $LANG to "C" (export LANG=C or something like that in your favorite shell). Here we go:

$_=++$_*++$_*++$_;($:)=($!=$*=$~=--$_)=~/^(.).*$/;--$*;$*--;$;=$:;($:)
+=($!=$_+=++$_)=~/^(.).*$/;--$*;$*--;$;=$;.$:;$_++;$_++;($:)=($!=++$_)
+=~/^(.).*$/;--$*;$*--;$;=$;.$:;--$_;--$_;($:)=($!=$_+=++$_+(++$~))=~/
+^(.)/;$;=$;.$:;$_++;($:,$~)=($!=++$_)=~/^...(.)(.).*$/;$,=$:.$~;($:,$
+~)=($!=++$_+$*)=~/^.....(.)(.).*$/;$,.=$:.$~;$_/=$_;$|=$_++;`$, $; $|
+>&$_`
[download]

I do not think such a code had already been post here.

Comment on No alpha-num Select or Download Code

Replies are listed 'Best First'.

Re: No alpha-num
by eyepopslikeamosquito (Archbishop) on Oct 14, 2004 at 22:01 UTC

The joy of writing Perl code with no alphanumerics at all has come up a number times over the years, for example: Re: Fun with one keyword, Re: Fun with one keyword, Acme::EyeDrops.

The other side of the coin is the joy of writing Perl code matching /^[a-z ]+$/ -- which has also been discussed a number of times, for example: Yet Another Obfuscation Engine, exactly 390 bytes.

[reply]
[d/l]

Re: No alpha-num
by jdalbec (Deacon) on Oct 14, 2004 at 02:18 UTC

some of the error messages are different.

$_=++$_*++$_*++$_;($:)=($!=$*=$~=--$_)=~/^(.).*$/;--$*;$*--;$;=$:;($:)
+=($!=$_+=++$_)=~/^(.).*$/;--$*;$*--;$;=$;.$:;$_++;$_++;($:)=($!=++$_)
+=~/^(.).*$/;--$*;$*--;$;=$;.$:;--$_;--$_;($:)=($!=$_+=++$_-(++$~))=~/
+^(.)/;$;=$;.$:;$_+=++$~;($:,$~)=($!=$_+=$~)=~/^...(.)(.).*$/;$,=$:.$~
+;($:,$~)=($!=--$_)=~/^.* (.)(.).*$/;$,.=$:.$~;$_/=$_;$|=$_++;`$, $; $
+|>&$_`
[download]

[reply]
[d/l]