给 perl hacker 们看的[16]

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//;
%%