another newbie

[Nikolas Britton]

On 7/2/06, jdow <jdow at earthlink.net> wrote:
> From: "Andrew Pantyukhin" <infofarmer at gmail.com>
>
> > On 7/2/06, Isaac Friedman <yifriedman at yahoo.com> wrote:
> >> I am new to UNIX but know the basics of getting
> >> around, writing simple shell scripts, etc. Is there
> >> any way to use a short perl program as a shell script?
> >
> > sat64% cat << __END__ > ./script.pl
> > #!/usr/local/bin/perl -w
> > print "Hello world!\n";
> > __END__
> > sat64% chmod a+x ./script.pl
> > sat64% ./script.pl
>
> Gee, Andrew, you didn't need to obfuscate it that way.

I can read his code just fine... Here's obfuscated perl:

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


-- 
BSD Podcasts @:
http://bsdtalk.blogspot.com/
http://freebsdforall.blogspot.com/