Date: Sun, 2 Jul 2006 19:54:36 -0500 From: "Nikolas Britton" <nikolas.britton@gmail.com> To: jdow <jdow@earthlink.net> Cc: freebsd-questions@freebsd.org Subject: Re: another newbie Message-ID: <ef10de9a0607021754m5121619bhf31d6f349ec43924@mail.gmail.com> In-Reply-To: <02fa01c69e26$320063b0$0225a8c0@Wednesday> References: <20060702153621.99746.qmail@web39104.mail.mud.yahoo.com> <cb5206420607020952q7304deb6kd362435688f84cae@mail.gmail.com> <02fa01c69e26$320063b0$0225a8c0@Wednesday>
next in thread | previous in thread | raw e-mail | index | archive | help
On 7/2/06, jdow <jdow@earthlink.net> wrote:
> From: "Andrew Pantyukhin" <infofarmer@gmail.com>
>
> > On 7/2/06, Isaac Friedman <yifriedman@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/
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?ef10de9a0607021754m5121619bhf31d6f349ec43924>