YA first timer


No such thing as a small change
	PerlMonks

YA first timer

by tfrayner (Curate)

on Aug 09, 2001 at 04:14 UTC ( [id://103291]=obfuscated: print w/replies, xml )

Need Help??

My first JAPH attempt (ever, honest). Apologies for the gratuitous use of unpack "u*"
:-).

#!/usr/bin/perl -w

use strict;

sub z{split(/O/)}$_='0409101911091129120914191439145915091539154915691
+57916291'.
'639164916582OFODOEOO0OAOBOEO7O6OCOO3O6OCO9OO1O4O5O8O6OC F;V-T*"(D85LD
+7R!N95PB'.
'7"(_;V-T*%PB,\'@D7UPB*2LQ.C!=(BD`';m/([^8]*)8(\w*) (.*)/;$_=$1;y/9/O/
+;my@a=z;
$_=$2;foreach(z){print chr eval unpack "u*",$3}
[download]

Comment on YA first timer Download Code

Back to Obfuscated Code

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: obfuscated [id://103291]
Approved by root
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others goofing around in the Monastery: (7)

As of 2024-04-19 13:05 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found