给 perl hacker 们看的[20]

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 $_=$_{$_};
%%