From merlyn@iwarp.intel.com (Randal Schwartz) 1 Feb 90 22:28:58 GMT @a=split(/(\d)/,"4Hacker,2another3Perl1Just");shift(@a);%a=@a;print "@a{1..4}"; %% From Andrew.Vignaux@comp.vuw.ac.nz (Andrew Vignaux) 22 Aug 90 11:10:18 GMT $s=(localtime(time))[0]; sub n { ($a - $b) * $s; } print grep(s/.*\t//,sort n grep($_=++$i/-50."\t$_",split(/\n*/,<<JAPH))); ,rekcah lreP rehtona tsuJ JAPH %% From merlyn@iwarp.intel.com (Randal Schwartz) 29 Aug 90 19:14:54 GMT print pack("c*",(32..127)[42,85,83,84,0,65,78,79,84,72,69,82,0,48,69,82,76,0,72 ,65,67,75,69,82,12]) %% Date: 6 Feb 90 22:31:17 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print grep(s/^\d+(.*)/$1 /, sort(split(/ /,"8hacker, 4Perl 1Just 2another"))); %% Date: 5 Feb 90 18:08:59 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) %_=split(/(\D+)/,"7Perl6another8hacker,5Just");print"@_{5..8}"; %% From: merlyn print pack('C25', grep($_ && $_ -= 256, split(/(\d\d\d)/, <<STRANGE))); 330373371372288353366367372360357370288336357370364288360353355363357370300 STRANGE %% Date: 11 Feb 90 20:32:28 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) for (unpack('C25', 'Just another Perl hacker,')) { printf "%03d", $_ + 256; } $_="wHFG NABGURE cREY UNPXRE,";y/a-zA-Z/N-ZA-Mn-za-m/;print; %% Date: 15 Feb 90 23:01:59 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_="Just another Perl hacker,";for$i(1..length){print substr($_,$i-1,1);} %% Date: 18 Feb 90 19:05:13 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print pack('C25', reverse unpack('C25', ',rekcah lreP rehtona tsuJ')); %% Date: 21 Feb 90 18:13:49 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print reverse split(/\/*/,",rekcah lreP rehtona tsuJ"); %% Date: 21 Feb 90 20:51:25 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) echo Just another Perl hacker,|perl -e 'print$1if($_=<STDIN>)=~/^(.*)/;' %% Date: 23 Feb 90 19:01:21 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) format STDOUT = @<<< @<<<<<< @<<< @<<<<<, $Just, $another, $Perl, $hacker . for("Just","another","Perl","hacker"){eval"\$$_=\$_;";};write; %% Date: 23 Feb 90 19:04:55 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $,=' ';print grep(s/^.//, sort "2another","4hacker,","1Just","3Perl"); %% Date: 23 Feb 90 23:23:53 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) @a=split(/X*/," ,JPacehklnorstu");print@a[2,15,13,14,0,4,10,11,14,7,6,12,0,3,6,12,9,0,7,4,5,8,6,1 2,1]; %% Date: 27 Feb 90 17:33:57 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) Subject: Re: more termcap.pl problems & a quick question In-reply-to: pem@frankland-river.aaii.oz.au (Paul E. Maisano) Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA Newsgroups: comp.lang.perl In article <1172@frankland-river.aaii.oz.au>, pem@frankland-river (Paul E. Maisano) writes: | sub p { | local($str) = @_; | $str =~ s/([\000-\037])/"^".pack("c", ord($1)+0100)/eg; | print $str; | } [well, he said more than that, but that's the important part... :-] how about handling DEL too? sub unctrl { local($_) = @_; s/([\000-\037\177])/'^'.pack('c',ord($1)^64)/eg; $_; } print &unctrl("\000\002\n\r\027ABC\177"),"\n"; results in: ^@^B^J^M^WABC^? print &unctrl("Just another Perl hacker,"); %% Date: 27 Feb 90 17:48:36 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) for (split(/(.)/,"Just another Perl hacker,")) {print if $_;} %% Date: 28 Feb 90 01:32:25 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) @a=<;echo Just another Perl hacker,>; print join(" ",@a); %% Date: 28 Feb 90 01:51:32 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) mkdir("/tmp/$$",0777); chdir "/tmp/$$"; grep(open(X,">$_"),"1Just","2another","3Perl","4hacker,"); print join(" ",grep(s/^.//,<*>)); chdir ".."; system "rm -rf $$"; %% Date: 28 Feb 90 02:03:37 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_ = <<END; s/../pack('C',hex($&))/ge; print; 4a75737420616e6f74686572205065726c206861636b65722c END %% Date: 28 Feb 90 16:09:35 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $\="hacker,";$,="another ";print"Just ","Perl "; %% Date: 28 Feb 90 22:45:45 GMT From: tneff@bfmny0.UU.NET (Tom Neff) @a=split(//,'1111211111131223311361214223121412311341121111222123616111111122'. '21233212615112114212321211121111222123321120');for$r(@a){for(1..$r){vec($s,$i, 1)=$v;$i++;}$v^=1;}print"$s\n"; %% Date: 1 Mar 90 06:27:25 GMT From: jgreely@giza.cis.ohio-state.edu (J Greely) print reverse(split(/!?/,join(' ',sort split(/ /,"tsuJ rehtona lrep ,rekcah")))); %% Date: 1 Mar 90 17:06:10 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) for('Snobol','Perl'){print"Just another $_ hacker,\n";} %% Date: 5 Mar 90 17:39:29 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) pipe(R,W);if(!fork){exit print W"Just another Perl hacker,";}close(W);print<R>; %% Date: 6 Mar 90 11:07:32 GMT From: Andrew.Vignaux@comp.vuw.ac.nz (Andrew Vignaux) @l = split (/(..)/,'1a7r4J1n0a7e7c1o8n248o1t4u8v4s7.207l27547a7n7g1h'. '0 511e3h7.8i564t3a6P1r7p8c8e6e3c3k7e3e533r7r286r6l4 6 1 8,7l7 3,'); srand; $_=3*int(rand(2))+2; /^$_/; foreach (split(//,&g)) {/^$_/;print &g;} print "\n"; sub g {join('',grep(s/^.//,grep(//,@l)));} %% Larry> for(split(//,'))*))91:+9.*4:1A1+9,1))2*:..)))2*:31.-1)4131)1))2*:3)"')) Larry> {for(ord){$i+=$_&7;grep(vec($s,$i++,1)=1,1..($_>>3)-4);}}print"$s\n"; Larry> And a special version just for Randal: Larry> grep(do{for(ord){$i+=$_%8;grep(vec($s,$i++,1)=1,5..($_>>3||print"$s\n"));}}, Larry> (@x=split(//,"))*))91:+9.*4:1A1+9,1))2*:..)))2*:31.-1)4131)1))2*:3)\7"))); %% Date: 6 Mar 90 18:08:23 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) open(C,"|uncompress");$_=<<EOF;s/../pack('C',hex($&))/ge;print C $_; 1f9d904aeacca103228c9b3774d094910302ca423620d08419b366210b05 EOF %% Date: 6 Mar 90 21:36:52 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print $_ x (($_ = "just another Perl hacker,") =~ s/j/J/); %% Date: 7 Mar 90 05:58:52 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_="kheauroes ,rJttParn lhc e";srand(1); while($a=length){$a=rand($a);print(substr($_,$a,1));substr($_,$a,1)="";} %% Date: 7 Mar 90 18:12:26 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) open(M,"/usr/games/lib/quiz.k/morse") || die "morse: ($!)"; while(<M>) {next unless /([A-Z]):(.*)/; $m{$2}=$1;} close(M); print grep($_ = ($m{$_} || $_), split(/([^-.])/,<<EOF)); exit 0; .--- ..- ... -/.- -. --- - .... . .-./.--. . .-. .-../.... .- -.-. -.- . .-., EOF %% Date: 26 Mar 90 16:20:37 GMT From: raymond@sunkist.berkeley.edu (Raymond Chen) $_='x"Not ";"x\"another \";\'x\\"perl \\";x\\"hacker,\\"\'"';s/x/print/g;eval eval eval; %% Date: 10 Mar 90 01:44:00 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) for($i=129600;@x=gmtime($i),(print substr('Just another Perl hacker,',$x[5]*12+$x[4]-840,1)),($i+ =2639520)<66117600;){;} %% Date: 10 Mar 90 01:55:18 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) printf "%c"x 25,74,117,115,116,32,97,110,111,116,104,101,114,32,80,101,114,108,32,104,97,99,107,1 01,114,44; %% Date: 11 Mar 90 01:03:06 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) %X=split(/(\d)/,'another2Perl4hacker,8Just1');sub X {$X{$a}<$X{$b}?-1:1;} print join(" ",sort X k eys X); %% Date: 11 Mar 90 16:56:40 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print join('',grep(s/.*"(.)".*/$1/,split(/\n/,<<))); Gimme a "J"! Gimme a "u"! Gimme an "s"! Gimme a "t"! Gimme a " "! :-) Gimme an "a"! Gimme an "n"! Gimme an "o"! Gimme a "t"! Gimme an "h"! Gimme an "e"! Gimme an "r"! Gimme a " "! :-) Gimme a "P"! Gimme an "e"! Gimme an "r"! Gimme an "l"! Gimme a " "! :-) Gimme an "h"! Gimme an "a"! Gimme a "c"! Gimme a "k"! Gimme an "e"! Gimme an "r"! Gimme a ","! :-) What's that spell?? %% Date: 13 Mar 90 20:00:26 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print +(split(//,'Just anoherPlck,'))[0..7,3,8..10,4,11,9,10,12,4,8,5,13,14,9,10,15]; %% Date: 20 Mar 90 01:21:37 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_=',Pr0e=kRcza0hb 5lOr+e"PE :rBe}hRtho]nhaj nt.s[u=J@';s/../unshift(a,$&)/eg;chop(@a);print@a; %% Date: 17 Mar 90 18:30:39 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) @ARGV=split(//,'Just another Perl hacker,');push(@x,'')while@x<@ARGV; for$x($[..$#x){grep(*y=*_,$x[$x]);$y=shift;}print@x; @ARGV=split(//,'Just another Perl hacker,');push(@x,'')while@x<@ARGV; for$y(@x){$y=shift;}print@x; %% Date: 17 Mar 90 22:34:02 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) @X=split(//,'Just another Perl hacker,');*Y=*X;print @Y; %% Date: 20 Mar 90 01:21:37 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_=',Pr0e=kRcza0hb 5lOr+e"PE :rBe}hRtho]nhaj nt.s[u=J@';s/../unshift(a,$&)/eg;chop(@a);print@a; %% Date: 20 Mar 90 01:53:40 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print "Just another Perl hacker," x "1no time to write a cute signature"; %% Date: 20 Mar 90 20:35:16 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_='5O1v3v5y9)1b7u2q4x1i0e3u2"3S9n5w7s6&7o7h8k1l6k3u3/';s/(.)(.)/pack('C',ord($2)-$1)/eg;print; %% Date: 20 Mar 90 23:33:06 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) eval <<EOF; print "Just another Perl hacker," EOF %% Date: 21 Mar 90 16:38:55 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_="7072696e7420274a75737420616e6f74686572205065726c206861636b65722c27"; s/../pack('C',hex($&))/eg; eval; %% Date: 23 Mar 90 04:37:57 GMT From: raymond@hilbert.berkeley.edu (Raymond Chen) $_="krJhruaesrltre c a cnp,ohet";$_.=$1,print$2while s/(..)(.)//; %% Date: 24 Mar 90 22:36:53 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) @a=split(//,",rkeacrl hher PeJust anot");print splice(@a,@a*2/3,@a*2/3+1)while@a; %% Date: 27 Mar 90 00:25:41 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_=q(q-q:!print "Just another Perl hacker," :-) ;-7 while$_=eval %% Date: 27 Mar 90 00:31:26 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) for(1..32){grep((print "${_}Just another Perl hacker,$_\r"),'-','\\','|','/');} %% Date: 27 Mar 90 16:16:30 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) @p=split(//,",rekcah lreP rehtona tsuJ");p:print pop(p);goto p if @p; %% Date: 27 Mar 90 16:36:46 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $|=1;$_=<<'-- ';s#..#printf"%c",(fork?wait&&$?/256:exit hex($&))#eg; 4a75737420616e6f74686572205065726c206861636b65722c %% Date: 28 Mar 90 16:12:34 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) open(STDERR,">&STDOUT");warn "Just another Perl hacker,\n" %% Date: 28 Mar 90 18:06:57 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_ = "Just a sed user,";s/a/another/;s/sed/Perl/;s/user/hacker/;print %% Date: 28 Mar 90 19:27:25 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_="reJ alounPt srhaetchr, ek";s/(..)(.)(..)/(print$2),$3.$1/eg;s/(.)(.)(.)/(print$2),$3.$1/eg;pr int %% Date: 28 Mar 90 21:35:44 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) ($_="Just another Perl hacker,"); 0 while s#.# do {print $&;} #e,s/^1//; %% Date: 30 Mar 90 19:18:27 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_=<<EOF;for$c(97..121){$x=sprintf("%c",$c);printf"%c",32+eval"y/$x/ /";} ldhnxdqflccjgixntpttudphiwljotwvvqsoiifujkxcfxsjtsxahsgobxhbkwocoglgkj vjiibdlqcjtgifhhvbpjqswfuxtjqudgcvsfdhufnsfxgjsvwxjjckgxpogktbkdgxpxkt sillcoidtqkqcxnsoptdhgqhnjhkolojcgbxcipiniokdpdnhvuvwondpqgcudjiucgdli llilclpsniuogqntvvbuwpdhdgvnbfaiplndubaipapwisjxocfuvsasjifdbcdtbtojfd phpxidhbdavxpxpbidcfbaxwwvddbpscdccatxbpckhavtldtvlvsgbpvlqxolowbvcloa jlfltiqwqqjafxlfpcgiqbxsvpgpvgsiblwgllvicfcifkulujvspoxklihaxkddnohidk gfsffjtugalibsginvhbkikuawfpcgppvvdfpkocjsluvcqnskvtjuppkfglpbcbsvxqxi opxwkovjhvqwojkfckqysxqsibbanxivcitctldvxilcvupxxldhnvsthocjcolhwqtwti nitspguakklhgkjwvlfwddsvuuwixhqvjpgbjpjtbojanxwutxsvuvicdgnsikkqqbdthu lwcasbqokhpwxskbqpcdlngqwnwqtbxpugafvnkhhbhscgusitstucvlubgilfaaulphlv ohpogqwqoauqtbvboupwjpfhggvkkbsbcxiolqkppdiqltjnxnsnstdsosfupcyjxwgpqg ahuscvvhohjxipcqwjxdwdusxwgyydatihdlbigusjqlpocdfpijvfhwuuggbtginttlxi wcqklviatnjgbnslbhxbgxqwvqyfvxnxiulktwigvbbodwfqjkduopfyugjqqfhdxgqbjs dupicidbqflkowtbnjqiwpqxpynibbiqhbagsuiqkpbfqnjyooswwchbqkpxqbwgxhkwoq htokfhhjdsavpkdldlkndkcwcghybhpcsocdwboqtnilvkwqvtxdwadbjqihjfdtgksblk aaddbwhalcdgtgblbhdsvnxcuqqbfldhkjfghdpvtnxsnoipfcvslxicolwfxbjbcnbwgo vlvhfcqcjonddjttdcsgxxiulvljsjsiuhhfwpkocngspoxdjsykwpofgplkncopvcwlgq xscfxpfiidtghbxspjcbjuuuhnvqwviuciobkapaxbisdnixjsakqsahlfihtlqxsfjgbo xaptdwcvlgohpvggoujoogjcobjwwugkfdbklhghuuthcbksdqcvcgatokqcdichpiwbjc buxyhwhnuxkiqwivdbgpvjqfuditkplfcsjjkflohigswtdjtahfclqkxouvabxfotbuhf tbfqlqkibvagngkuvwnpjcqhpowfqhuaoqccdlupdwosvupxqbvqpkihvftwfbsodsyjgp hhbxhwfhkiadlwfwxunbhuqppbhjguctjldfoqtgkllcllxtxxklxwdtcdhklxusxjcixg EOF %% Date: 2 Apr 90 18:45:15 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) @A=split(/\n/,<<'-- ');$A[9-$b-($b>5)]=~s/\*/vec($_,8*length($`)+$b-1,1)=1/eg while++$b<9;print; **** ******* **** ****** ************ *********** ......................... *** * * * * * * ** * * * * * * * *** * * * * * * * ** * * ** * ** * * * * **** -- %% Date: 3 Apr 90 22:44:56 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) @ARGV=split(/\S\n?/,<<EOF);$a+=length(shift),vec($_,$a,1)=1while@ARGV;print; :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) :-) EOF -- %% Date: 3 Apr 90 22:40:40 GMT From: raymond@wish-bone.berkeley.edu (Raymond Chen) $x=split(/( )/,'Not another perl hacker,');$_=q$x$x$x;s$x$print shift(@_)$eg; %% Date: 4 Apr 90 03:02:23 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) @_=("Just another Perl hacker," =~ /(.*) (.*) (.*) (.*)/);print"@_"; %% Date: 10 Apr 90 02:18:38 GMT From: tneff@bfmny0.UU.NET (Tom Neff) system qq|perl -e 'system qq!echo Just another ANSI Perl hacker,!'| %% Date: 11 Apr 90 08:46:10 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) eval q(eval q-eval q:print"Just another Perl hacker," :-) %% Date: 16 Apr 90 15:58:21 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_='987;s/^(\d+)/$1-1/e;$1?eval:print"Just another Perl hacker,"';eval %% Date: 17 Apr 90 00:20:39 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) @L = split(/ /, <<EOL); eval '$'.pop(@L).'='.@L while @L; zero one two three four five six seven eight nine EOL for (split(/\s+/,<<"EOF")) { printf "%c",$_; } $seven$four $one$one$seven $one$one$five $one$one$six $three$two $nine$seven $one$one$zero $one$one$one $one$one$six $one$zero$four $one$zero$one $one$one$four $three$two $eight$zero $one$zero$one $one$one$four $one$zero$eight $three$two $one$zero$four $nine$seven $nine$nine $one$zero$seven $one$zero$one $one$one$four $four$four EOF %% Date: 18 Apr 90 13:47:12 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_=",rekcah lreP rehtona tsuJ";s/.$/eval 'print $&',""/e while length %% Date: 19 Apr 90 23:21:03 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print grep($_=sprintf("%c",exp($_)),split(/\s+/,<<'-- ')); 4.311 4.766 4.749 4.758 3.481 4.580 4.705 4.714 4.758 4.649 4.620 4.741 3.481 4.388 4.620 4.741 4.687 3.481 4.649 4.580 4.600 4.677 4.620 4.741 3.795 %% Date: 27 Apr 90 14:55:59 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_ = "cker,rl haer PeanothJust "; s/(.{5})$/(print$1),""/e while length %% Date: 27 Apr 90 19:12:09 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_ = <<EOF; s/(\d\d)(\d\d)\s*/substr(($!=$1,"$!"),$2,1)/eg; print; J0204020301020103042001060101010202060107010801031300010701080210 0103020604200205150401070108, EOF %% Date: 27 Apr 90 21:02:12 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_ = <<EOF; s#[-+]\d+#pack('C',$c+=$&)#eg; print; +74+43-2+1-84+65+13+1+5-12-3+13-82+48+21+13-6-76+72-7+2+8-6+13-70 EOF -- %% Date: 30 Apr 90 21:03:34 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_="Just_another_Perl_hacker,";open(_,">$_");print<$_*>;unlink; %% Date: 2 May 90 16:44:45 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_ = "Jvtu bopuifs Pfsm ibdlfs,"; y/a-z/za-y/; print %% Date: 6 Apr 90 17:09:14 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) sub _{$b-$a;}print((split(//,",rekcah lreP rehtona tsuJ"))[sort _ 0..24]) %% Date: 18 Apr 90 23:02:31 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_='vec(1,1,1); print substr($_ ^ "<\020\020\134\021M_CEA^RP\042\014\034\030\000\033\024\001\030\ 021\000\004",0,25)'; eval %% Date: 18 Apr 90 23:02:31 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_='vec(1,1,1); print substr($_ ^ "<\020\020\134\021M_CEA^RP\042\014\034\030\000\033\024\001\030\0 21\000\004",0,25)'; eval %% Date: 19 Apr 90 17:18:27 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print ('Just ','anoth','er Pe','rl ha','cker,')[0..4] %% Date: 2 May 90 16:44:45 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_ = "Jvtu bopuifs Pfsm ibdlfs,"; y/a-z/za-y/; print %% Date: 15 May 90 16:02:24 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) open(P,"|perl");print P"format=\nJust another Perl hacker,\n.\nwrite" %% Date: 22 May 90 21:41:18 GMT From: flee@shire.cs.psu.edu (Felix Lee) @a=split(//,$]);@b=split(//,"k ple th\nhroeaarcn.");$k=$#a=$#b;@a=sort grep($_.=$k++,@a);print@b[substr(pop(@a),1,2)-$#b]while(@a); %% Date: 25 May 90 15:29:25 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_=pack("c25",65..90);y/A-Y/Just another Perl hacker,/;print %% Date: 26 May 90 00:00:37 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) sub isplit { # &isplit(word,string) => array local($word,$_) = @_; local(@ind,@result,$start,$end); @ind = (0); s#$word#push(ind,length($`),length($`.$&)),$&#ieg; push(ind,length); # @ind now has pairs of indicies (0-origin) into $_ # that bound the non-$word items; convert into result: while (@ind) { $start = shift(ind); $end = shift(ind); push(result,substr($_,$start+$[,$end-$start)); } @result; } print &isplit("z","JzuZsztZ zaZnzoZtzhZezrZ zPZezrZlz ZhzaZczkZezrZ,"); %% Date: 5 Jun 90 19:07:58 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $,=" "; print +("hacker,","Just","Perl","another")[1,3,2,0]; %% Date: 14 Jun 90 06:38:52 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) open(o,"|cat");print o "Just another Perl hacker," %% Date: 15 Jun 90 01:37:14 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print `perl -e 'print STDERR "Just another Perl hacker,"' 2>&1` %% Date: 15 Jun 90 16:15:31 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_ = <<'-- '; s/../printf "%c",hex($&)/ge; 4a75737420616e6f74686572205065726c206861636b65722c -- %% Date: 15 Jun 90 22:06:24 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) printf "%s %s %s %s%c", 'Just', 'another', 'Perl', 'hacker', 44 %% Date: 16 Jun 90 19:22:20 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print <;echo Just another perl hacker,> %% Date: 18 Jun 90 07:49:28 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_ = "Just another Perl hacker,"; { redo if s/./(print $&),""/e; } %% Date: 18 Jun 90 15:53:11 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print "Just another Perl hacker," if "you can't think of anything better..." %% Date: 20 Jun 90 17:51:58 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_ = <<'-- '; s/../pack("c",hex($&))/eg; eval; 7072696e7420224a75737420616e6f74686572205065726c206861636b65722c22 -- %% Date: 25 Jun 90 20:58:27 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) %_=split(/(\D+)/,"4Perl1Just8hacker,2another");print"@_{sort(keys(_))}" %% Date: 26 Jun 90 18:02:43 GMT From: bill@ksr.com (Bill Mann) $_="another Just hacker $]".`ps c$$`;@_=split;print"@_[1,0,$#_,11,13,2],\n"; %% Date: 27 Jun 90 00:20:08 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) %_=@_=("Perl","hacker,");print"@_[!print 'Just '] @_{(keys _)[!print 'another ']}" %% %% Date: 28 Jun 90 17:57:59 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print "$ARGV[push(@ARGV,'Just another Perl hacker,')]" %% Date: 30 Jun 90 21:11:02 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) for("hacker","Perl","another","Just"){substr($x,0,0)="$_ ";}substr($x,-1,1)=",";print$x %% Date: 1 Jul 90 18:24:21 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) print grep($_=pack("c",hex($_)),unpack("A2"x 25,"4a75737420616e6f74686572205065726c206861636b65722 c")) %% Date: 1 Jul 90 22:55:10 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $x=25;print substr(',rekcah lreP rehtona tsuJ',$x,1) while --$x >= 0 %% Date: 3 Jul 90 00:19:58 GMT From: raymond@bosco.berkeley.edu (Raymond Chen) $_="-|";open _||print"creaJklrnue osrhptt,aeh ";while(<_>){$}=5;s/(.{$}})(.)/(print$2),$1/eg whil e--$};print;} %% Date: 5 Jul 90 17:18:01 GMT From: merlyn@iwarp.intel.com (Randal Schwartz) $_="cker,rl haer PeanothJust ";1 while s/(.{5})(.{5})?/$_{$2}=$1,$2/e;print while $_=$_{$_}; %% #!/usr/local/bin/perl undef$/;$_=<DATA>;y/ODA\n / /ds;@yoda=map{length}split;print chr oct join('',splice(@yoda,0,3))-111 while@yoda; __DATA__ 00O00O000O00O0000 000O DD000000O0 0DO0000000O0000O00 O00000 00O00000O0O 0000 0O0 O00 O00 00D 0DO 00O0 0O0 00D 000 DO0D00000D 0O00 DOD 000000O00000 000 O00O DD0000D000O0 000 0O00O0000D00DO 0OD D00O000D00O0 00000DO00O0 000 000O 00D0 O0D O00000O0DO0 0O000 OD0D O00O0 0000 DDDO000000 O00O000000 0O000 O00DDO 00000 0O0D00 00O0O00000O 0O00O000000 0O0O00OD00000DDD 00O 0D0 DDD D0O 00O0D 00000O00000000 O00 DO0 D00D00O000 00D00 D0O00 O0000 000O000O00DO 000 00O0 0OD00 O00 000 0O000D000O00O0 000 0D0O000000O00O00 0 0 0O0D 0000 0O0 0O0000000O000O [editorial note: would the author of this JAPH *please* stand up? ] %% Date: 9/19/2000 Author: Abigail <abigail@foad.org> sub A::TIESCALAR{bless\my$x=>A};package B;@q[0..3]=qw/Hacker Perl Another Just/;use overload'""'=>sub{pop @q};sub A::FETCH{bless\my $y=>B}; tie my $shoe => qq 'A';print "$shoe $shoe $shoe $shoe\n"; %% Date: 9/18/2000 Author: Abigail <abigail@foad.org> perl -wle 'eval {die [[qq [Just another Perl Hacker]]]};; print ${${${@}}[$#{@{${@}}}]}[$#{${@{${@}}}[$#{@{${@}}}]}]' %% Date: 9/18/2000 Author: Abigail <abigail@foad.org> perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164". "\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162". "\042\040\076\040\057\144\145\166\057\164\164\171";`$@`' %% Date: 9/18/2000 Author: Abigail <abigail@foad.org> $" = "/"; split // => eval join "+" => 1 .. 7; *{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}}; %_ = (Just => another => Perl => Hacker); &{%_}; %% Date: 9/18/2000 Author: Abigail <abigail@foad.org> perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}- # A monk laughs. A duck # nesting in a maple tree. # A pair of doves cooing. %% Date: 9/18/2000 Author: Abigail <abigail@foad.org> perl -weprint\<\<EOT\; -eJust -eanother -ePerl -eHacker -eEOT # Seven butterflies # crawling in the branches of an # oak. Joshu. A lark. %% Date: 9/20/2000 Author: Abigail <abigail@foad.org> :;$:=~s: -:;another Perl Hacker :;chop $:;$:=~y :;::d;print+Just. %% Date: 9/20/2000 Author: Abigail <abigail@foad.org> $"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_; sub _ {push @_ => /::(.*)/s and goto &{ shift}} sub shift {print shift; @_ and goto &{+shift}} Hack ("Just", "Perl ", " ano", "er\n", "ther "); # 20000919 $:; %% Date: 9/20/2000 Author: Abigail <abigail@foad.org> $; # A lone dollar? =$"; # Pod? $; # The return of the lone dollar? {Just=>another=>Perl=>Hacker=>} # Bare block? =$/; # More pod? print%; # No right operand for %? %% Date: 9/20/2000 Author: Abigail <abigail@foad.org> print 74.117.115.116.32; print 97.110.111.116.104.101.114.32; print 80.101.114.108.32; print 72.97.99.107.101.114.10; %% Date: 9/20/2000 Author: Abigail <abigail@foad.org> BEGIN {$^H {q} = sub {pop and pop and print pop}; $^H = 2**4.2**12} "Just "; "another "; "Perl "; "Hacker\n"; %% Date: 9/20/2000 Author: Abigail <abigail@foad.org> sub f{sprintf$_[0],$_[1],$_[2]}print f('%c%s',74,f('%c%s',117,f('%c%s',115,f( '%c%s',116,f('%c%s',32,f('%c%s',97,f('%c%s',0x6e,f('%c%s',111,f('%c%s',116,f( '%c%s',104,f('%c%s',0x65,f('%c%s',114,f('%c%s',32,f('%c%s',80,f('%c%s',101,f( '%c%s',114,f('%c%s',0x6c,f('%c%s',32,f('%c%s',0x48,f('%c%s',97,f('%c%s',99,f( '%c%s',107,f('%c%s',101,f('%c%s',114,f('%c%s',10,))))))))))))))))))))))))) %% Date: 9/20/2000 Author: Abigail <abigail@foad.org> sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97, f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32, f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff))))))))))))))))))))))))) %% Date: 9/20/2000 Author: Abigail <abigail@foad.org> perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print qq{Just Another Perl Hacker\n}}}}}}}}}' |\ perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w %% Date: 9/20/2000 Author: Abigail <abigail@foad.org> echo "==== ======= ==== ======"|perl -pes/=/J/|perl -pes/==/us/|perl -pes/=/t/\ |perl -pes/=/A/|perl -pes/=/n/|perl -pes/=/o/|perl -pes/==/th/|perl -pes/=/e/\ |perl -pes/=/r/|perl -pes/=/P/|perl -pes/=/e/|perl -pes/==/rl/|perl -pes/=/H/\ |perl -pes/=/a/|perl -pes/=/c/|perl -pes/=/k/|perl -pes/==/er/|perl -pes/=/./; %% Date: 9/20/2000 Author: Abigail <abigail@foad.org> $_ = "\112\165\163\1648\141\156\157\164\150\145\1628\120\145" . "\162\1548\110\141\143\153\145\162\0128\177" and &japh; sub japh {print "@_" and return if pop; split /\d/ and &japh} %% Date: 9/19/2000 Author: Abigail <abigail@foad.org> perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47] .qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W] .qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V %$^U;$^V/=$^U}while$^V!=$^W' %% Date: 9/19/2000 Author: Abigail <abigail@foad.org> perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";' # A pair of wolves beside # a dam. Ryonen dying. # An eagle flying. %% Date: 9/19/2000 Author: Abigail <abigail@foad.org> $" = "/"; split $, => eval join "+" => 1 .. 7; *{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}}; %{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}}; %% Date: 9/19/2000 Author: Abigail <abigail@foad.org> CHECK {print "another "} # Ten leaping pikes. Swordmaster INIT {print "Perl " } # Mushashi weeping. BEGIN {print "Just " } # A songbird. The King. END {print "Hacker\n"} %% Date: 9/19/2000 Author: Abigail <abigail@foad.org> :;$:=~s: -:;another Perl Hacker :;chop $:;$:=~y:;::d;print+Just.$: %% Date: 9/19/2000 Author: Abigail <abigail@foad.org> perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +( HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse ( LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET", "http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content)) =~ /(.*\))[-\s]+Addition/s) [0]' %% Date: 9/19/2000 Author: Abigail <abigail@foad.org> sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y". "$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s};;; *_'_=*{chr($b*$e)};*__=*{chr(1<<$e)}; # Perl 5.6.0 broke this... _::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J()))))))))))))))))))))))) %% Date: 9/19/2000 Author: Abigail <abigail@foad.org> perl -wle 'eval {die [[qq [Just another Perl Hacker]]]};; print ${${${@}}[$#{@{${@}}}]}[$#{${@{${@}}}[$#{@{${@}}}]}]' %% Date: 9/19/2000 Author: Abigail <abigail@foad.org> $"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_=sub{print/::(.*)/}; $\=$/;q<Just another Perl Hacker>->(); %% Date: 9/19/2000 Author: Abigail <abigail@foad.org> split // => '"'; ${"@_"} = "/"; split // => eval join "+" => 1 .. 7; *{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}}; %{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}}; %% Date: 9/22/2000 Author: Abigail <abigail@foad.org> perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %; BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}' %% Date: 9/22/2000 Author: Abigail <abigail@foad.org> BEGIN {my $x = "Knuth heals rare project\n"; $^H {integer} = sub {my $y = shift; $_ = substr $x => $y & 0x1F, 1; $y > 32 ? uc : lc}; $^H = hex join "" => 2, 1, 1, 0, 0} print 52,2,10,23,16,8,1,19,3,6,15,12,5,49,21,14,9,11,36,13,22,32,7,18,24; %% Date: 9/22/2000 Author: Abigail <abigail@foad.org> sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i; h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####; c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@); print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n"); %% Date: 9/22/2000 Author: Abigail <abigail@foad.org> package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g; print } sub __PACKAGE__ { & print ( __PACKAGE__)} & __PACKAGE__ ( ) %% Date: 9/21/2000 Author: Abigail <abigail@foad.org> package Z;use overload'""'=>sub{$b++?Hacker:Another}; sub TIESCALAR{bless\my$y=>Z}sub FETCH{$a++?Perl:Just} $,=$";my$x=tie+my$y=>Z;print$y,$x,$y,$x,"\n";#Abigail %% Date: 9/21/2000 Author: Abigail <abigail@foad.org> perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";' # A spider sitting # beside a river. A sitting # cow. A thrush flies. %% Date: 9/21/2000 Author: Abigail <abigail@foad.org> $_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop}; $chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () %% Date: 9/21/2000 Author: Abigail <abigail@foad.org> map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2; print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n" %% Date: 9/27/2000 Author: Abigail <abigail@foad.org> @_=map{[$!++=>$_^$/]}split$2=>"\@\x7Fy~*kde~box*Zoxf*Bkiaox";$\="\r"; $|=++$*;do{($#=>$=)=(rand@_=>rand@_);@_[$#,$=]=@_[$=,$#]}for($*..@_); for$:($|..@_-$|){for($|..@_-$:){@_[$_-$|,$_]=@_[$_=>$_-$*]if$_[$_][$1 u4 ]<$_[$_-$*][$ ];print+map{$_->[$|]}@_;select$ ,$ ,$1 2,"$[.$|"}}print$/ %% Date: 9/27/2000 Author: Abigail <abigail@foad.org> perl -e '$a = q 94a75737420616e6f74686572205065726c204861636b65720a9 and ${qq$\x5F$} = q 97265646f9 and s g..g; qq e\x63\x68\x72\x20\x30\x78$&eggee; {eval if $a =~ s e..eqq qprint chr 0x$& and \x71\x20\x71\x71qeexcess}' %% Date: 9/27/2000 Author: Abigail <abigail@foad.org> perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' # A nesting eagle. Bankei # dies near a palace. Two # bears howl. The King. %% Date: 9/26/2000 Author: Abigail <abigail@foad.org> perl -we '$_ = q ;4a75737420616e6f74686572205065726c204861636b65720as;; for (s;s;s;s;s;s;s;s;s;s;s;s) {s;(..)s?;qq qprint chr 0x$1 and \161 ssq;excess;}' %% Date: 9/26/2000 Author: Abigail <abigail@foad.org> my $qr = /^.+?(;).+?\1|;Just another Perl Hacker;|;.+$/; $qr =~ s/$qr//g; print $qr, "\n"; %% Date: 9/26/2000 Author: Abigail <abigail@foad.org> $_ = "\112\165\163\1648\141\156\157\164\150\145\1628\120\145" . "\162\1548\110\141\143\153\145\162\0128\177" and &japh; sub japh {print "@_" and return if pop; split /\d/ and &japh} %% Date: 9/26/2000 Author: Abigail <abigail@foad.org> tie $" => A; $, = " "; $\ = "\n"; @a = ("") x 2; print map {"@a"} 1 .. 4; sub A::TIESCALAR {bless \my $A => A} # Yet Another silly JAPH by Abigail sub A::FETCH {@q = qw /Just Another Perl Hacker/ unless @q; shift @q} %% Date: 9/26/2000 Author: Abigail <abigail@foad.org> perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>( 0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0 =>I=>$==-2449231+gm_julian_day+time);do{until($=<$#r){$_.=$r[$#r];$=-=$#r}for(; !$r[--$#r];){}}while$=;$,="\x20";print+$_=>September=>MCMXCIII=>=>=>=>=>=>=>=>' %% Date: 9/26/2000 Author: Abigail <abigail@foad.org> BEGIN {$^H {q} = sub {pop and pop and print pop}; $^H = 2**4.2**12} "Just "; "another "; "Perl "; "Hacker\n"; %% Date: 9/26/2000 Author: Abigail <abigail@foad.org> $" = "/"; split $, => eval join "+" => 1 .. 7; *{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}}; %{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}}; %% Date: 9/26/2000 Author: Abigail <abigail@foad.org> srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split //=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n" __END__ A rabbit watches near // the forest. A beetle over // a pool. A Bishop %% Date: 9/26/2000 Author: Abigail <abigail@foad.org> :$:=~s:$":Just$&another$&:;$:=~s: :Perl$"Hacker$&:;chop$:;print$:#: %% Date: 8/14/2000 Author: Abigail <abigail@foad.org> perl -Mstrict -we '$_ = "goto K.print chop;\n=rekcaH lreP rehtona tsuJ";K1:eval' %% Date: 9/17/2000 Author: Abigail <abigail@foad.org> perl -le 's[$,][join$,,(split$,,($!=85))[(q[0006143730380126152532042307]. q[41342211132019313505])=~m[..]g]]e and y[yIbp][HJkP] and print' %% Date: 9/17/2000 Author: Abigail <abigail@foad.org> @;=split//=>"Joel, Preach sartre knuth\n";$;=chr 65;%;=map{$;++=>$_} 0,22,13,16,5,14,21,1,23,11,2,7,12,6,8,15,3,19,24,14,10,20,18,17,4,25 ;print@;[@;{A..Z}]; %% Date: 8/15/2000 Author: Abigail <abigail@foad.org> perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];} print+Just (), another (), Perl (), Hacker ();' %% Date: 7/15/2000 Author: Abigail <abigail@foad.org> perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*; for ($*=******;$**=******;$**=******) {$**=*******s*..*qq} print chr 0x$& and q qq}*excess********}' %% Author: MJD @P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{ @p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f|ord ($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&& close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print [note: Won 2nd place in the 5th annual obfuscated Perl contest. see http://perl.plover.com/obfuscated/ for more info. ] %% Author: "Casey R. Tweten" <crt@kiski.net> my $html;$html.=$_ while<DATA>;$html=~s/[^ ] <([^\/])/ ' <'.chr(ord($1)-32)/ges;$html=~s/\n//gs;$html=~s/^ / /;$html=~s/ {2,3}/SPC/g;$html=~s/ //g;$html=~ s/SPC/ /g ;$html=~s/<([^\/])/'<'.chr(ord($1)-1)/ge;print join"\n" ,join('',($html=~m/(?:<([^\/])|( ))/g)),'';# Formatting __END__ <kbd>Type some HTML</kbd> into a <var>Variable</var>. and you set it's <tt>value</tt>. <u>Amazing!</u> <br> <object code="srccode"><param name="code" value="Perl"> <u>You don't have a Perl enabled browser :-( shame</u> <img alt="Perl forever!" src="perl.png"></object><form> Quote this text:<samp>Perl. Live it, love it, learn it. </samp> <q>Perl. Live it, love it, learn it. </q><font color="#FF0000">Perl is the only cure to your headaches </font><script language="JavaScript">function push_me() {alert('Javascript won\'t help!') }</script><marquee>IE won't help! </marquee> <i>When this just hurts... </i> <button name="pushme" onClick="push_me();return true;"> <dir> <li> Go for Perl! </dir> <font size="+1"><strong> Author: Casey Tweten, 100% Perl Geek </strong> </font> %% Author: "Casey R. Tweten" <crt@kiski.net> $_=`perldoc -qjaph`=>s`.+"(.+)".+`$1\n`s=>s`\b([^a])`\u$1`g=>print; %% Author: "Casey R. Tweten" <crt@kiski.net> sub q{print};;$_=eval q.q; # Just another Perl Hacker ;;.;s;.+?\b;;s;eval qq;&q; %% Author: "Casey R. Tweten" <crt@kiski.net> sub ::(Just{another}Perl{Hacker}){( $,=>$\)=(q q q=>q q q)=>prototype\& ::}@(=split q q\{([^\}]+)\}q=>eval{ eval qq:&\:\::};{(print(@(=>"\n"))} %% Author: "Casey R. Tweten" <crt@kiski.net> map{s[[^\@\$]][]go=>chomp,$_=[split/(\@+\$*)/=>$_]=>map{$_?do{s( (\@+)(\$*))(chr((length$1)*10+length$2))ex=>print}:1}@$_}<DATA>,__END__ sub proto(@@@@@@@$$$$@@@@@@@@@@@$$$$$$$@@@@@@@@@@@$$$$$ @@@@@@@@@@@$$$$$$@@@$$@@@@@@@@@$$$$$$$@@@@@@@@@@@ @@@@@@@@@@@$@@@@@@@@@@@$$$$$$@@@@@@@@@@$$$$ @@@@@@@@@@$@@@@@@@@@@@$$$$@@@$$@@@@@@@@ @@@@@@@@@@$@@@@@@@@@@@$$$$@@@@@@@@@@$$$$$$$$ @@@$$@@@@@@@$$@@@@@@@@@$$$$$$$@@@@@@@@@$$$$$$$$$ @@@@@@@@@@$$$$$$$@@@@@@@@@@$@@@@@@@@@@@$$$$@){&proto} %% Author: "Casey R. Tweten" <crt@kiski.net> #!/usr/local/bin/perl -w use strict;$|++;$_=q{<}. q{leo%mbwf<?BUBE=fmjix}. q{!`%-0/]0ujmqt~*udp)s}. q{id|qbn-((ojpk>/leo%-}. q{qnpid<leo%zn}=>s{(.)}{ chr((ord $1)-1)}xeg;eval scalar reverse;#IP magic __END__ 160.141.143.153 141.147.145.40 112.165.163.164 73.163.165.142 40.141.156.157 164.150.145.162 173.50.143.141 154.154.145.162 50.60.51.51 40.133.63.135 175.12.160.141 143.153.141.147 145.40.120.145 162.154.73.163 165.142.40.110 141.143.153.145 162.40.173.50 143.141.154.154 145.162.50.60 51.51.40.133 63.135.175.12 160.141.143.153 141.147.145.40 155.141.151.156 73.160.162.151 156.164.40.152 157.151.156.40 47.40.47.54 40.163.160.154 151.164.40.155 47.72.72.47 54.12.152.157 151.156.47.72 72.47.54.112 165.163.164.72 72.141.156.157 164.150.145.162 54.120.145.162 154.72.72.110 141.143.153.145 162.56.42.134 156.42.73.12 %% Author: Ronald J Kimball <rjk@linguist.dartmouth.edu> $~='`';$_=$:=$~|'%';$;=$^='/'|$~;$;++;$\=$~|"'";$;++;$:.=++$;;$/=++$;;+$\++;$_.= '#'|$~;$,=++$/;$_.="$\$^$\"";++$,;$_.='@'|'*'&~'!';$_.="$,$;$/$\"";$_.+='!.'|$~. $~;$_.="$^$/$\$:$\"";$_.='@'|':'&~'*';$_.=$:;$_.=$^&'|';$_.=$".$\;$_.=+"$~$~$~"| '!#+';++$.;$.++;`$_$:,>&$.`; %%