From owner-freebsd-questions@FreeBSD.ORG  Mon Jul  3 00:54:37 2006
Return-Path: <owner-freebsd-questions@FreeBSD.ORG>
X-Original-To: freebsd-questions@freebsd.org
Delivered-To: freebsd-questions@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 1F9CB16A40F
	for <freebsd-questions@freebsd.org>;
	Mon,  3 Jul 2006 00:54:37 +0000 (UTC)
	(envelope-from nikolas.britton@gmail.com)
Received: from nz-out-0102.google.com (nz-out-0102.google.com [64.233.162.199])
	by mx1.FreeBSD.org (Postfix) with ESMTP id A74F843D45
	for <freebsd-questions@freebsd.org>;
	Mon,  3 Jul 2006 00:54:36 +0000 (GMT)
	(envelope-from nikolas.britton@gmail.com)
Received: by nz-out-0102.google.com with SMTP id x7so214572nzc
	for <freebsd-questions@freebsd.org>;
	Sun, 02 Jul 2006 17:54:36 -0700 (PDT)
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=beta; d=gmail.com;
	h=received:message-id:date:from:to:subject:cc:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references;
	b=mxVXcfbQDUKMhU1uWk6j29MqZ9SFvUMzlXw9a0UOJkk6hFj1kmoKRz5A0Rk5T69d3ZAF3d6HkjJs+12xSWgLewh4wbayPJC9aSC+cRoB9Bh2Jwct9ADmk5uODUXGMEOgbzsvdZaIH2aVwkf78QjhlgCufYNCmf+0fgBTX/2iVDM=
Received: by 10.36.33.6 with SMTP id g6mr3070262nzg;
	Sun, 02 Jul 2006 17:54:36 -0700 (PDT)
Received: by 10.36.12.11 with HTTP; Sun, 2 Jul 2006 17:54:36 -0700 (PDT)
Message-ID: <ef10de9a0607021754m5121619bhf31d6f349ec43924@mail.gmail.com>
Date: Sun, 2 Jul 2006 19:54:36 -0500
From: "Nikolas Britton" <nikolas.britton@gmail.com>
To: jdow <jdow@earthlink.net>
In-Reply-To: <02fa01c69e26$320063b0$0225a8c0@Wednesday>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Content-Disposition: inline
References: <20060702153621.99746.qmail@web39104.mail.mud.yahoo.com>
	<cb5206420607020952q7304deb6kd362435688f84cae@mail.gmail.com>
	<02fa01c69e26$320063b0$0225a8c0@Wednesday>
Cc: freebsd-questions@freebsd.org
Subject: Re: another newbie
X-BeenThere: freebsd-questions@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: User questions <freebsd-questions.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/freebsd-questions>
List-Post: <mailto:freebsd-questions@freebsd.org>
List-Help: <mailto:freebsd-questions-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/freebsd-questions>, 
	<mailto:freebsd-questions-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Mon, 03 Jul 2006 00:54:37 -0000

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/