给 perl hacker 们看的 (转)

给 perl hacker 们看的 (转)[@more@]

究竟有多少种打印出 just another perl hacker 的方法呢？

看看就知道了 :-)

 

%%
#JoeCamel on http://www.perlmonks.com/
#note: requires Perl5.6.0 or better
#!/usr/bin/perl -w
use strict;

# A tribute to one of the greatest films of all time.
my(%primate, $monolith, $evolution, $contact);

  $_='primate-> throw
  ( "Bone" ) ;  goto;
  $$monolith ;  bless
  %primate;$evolution
  =~m/?+*/; #/*+?/m~=
  *humanintellect ++;
  $DiSCOvery =~ m . [
  [::]>>=<>=<>=<>=(-)
  ]. ; require  2001;
  exists($malfunction
  )#open $podbayDoors
  or die ; HAL-> sing
  ("Daisy");sleep()*'
  ;my@universe= qw(15
  1 6 4 35 1  12 2 23
  2 14 1  8 2 0  5 25
  1 39 3 7 2);my $God
  ;$monolith="******"
  ;  my  @spaceTime =
  split/;/,$_ ; while
  (my($space,$time )=
  splice (@universe,0
  ,2) ) { my $journey
  = shift @spaceTime;
  eval " $journey; ";
  $contact = substr (
  $@, $space, $time )
  ; if ( $space != ((
  " dimension " =~ //
  ) +1+4+9 ) ) {print
  $contact; next; }my 
  $starChild=$contact
  ;print uc$starChild

}
%%
#!/usr/local/bin/perl
 
undef$/;$_=;y/ODAn / /ds;@yoda=map{length}split;print chr
oct join('',splice(@yoda,0,3))-111 Mailto:while@yoda" rel="nofollow">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? ]
%%
#Erudil from http://www.perlmonks.com/
#!/usr/bin/perl -w  # camel code
use strict;

  $_='ev
  al("seek40D
  ATA,0,  0;");foreach(1..3)
  {;}my  @camel1hump;my$camel;
  my$Camel  ;while(  ){$_=sprintf("%-6
9s",$_);my@dromedary  1=split(//);if(defined($
_=)){@camel1hum  p=split(//);}while(@dromeda
 ry1){my$camel1hump=0  ;my$CAMEL=3;if(defined($_=shif
  t(@dromedary1  ))&&/S/){$camel1hump+=1<  $CAMEL--;if(d  efined($_=shift(@dromedary1))&&/S/){
  $camel1hump+=1  <  @camel1hump))&&/S/){$camel1hump+=1<  defined($_=shift(@camel1hump))&&/S/){$camel1hump+=1<  L;;}$camel.=(split(//,"40..m`{/J47134}L^7FX"))[$camel1h
  ump];}$camel.="n";}@camel1hump=split(/n/,$camel);foreach(@
  camel1hump){chomp;$Camel=$_;y/LJF7173175`47/616263
  06465666770/;y/12345678/JL7F17517347`/;$_=reverse;
  print"$_40$Cameln";}foreach(@camel1hump){chomp;$Camel=$_;y
  /LJF7173175`47/12345678/;y/12345678/JL7F175173 47`/;
  $_=reverse;print"40$_$Cameln";}';;s/s*//g;;eval;  eval
  ("seek40DATA,0,0;");undef$/;$_=;s/s*//g;(  );;s
  ;^.*_;;;map{eval"print"$_"";}/.{4}/g; __DATA__  124
  1  5014540165163145401571 46401  41
  40143141  1551451 54401  51155  141
  147145  40151156 40141  16316 3
  157143  15114116  41511  57156
  40167  1511641  5040  1201
  45162  1544015  1163  04014
  1401  641621  41144  145
  15514  1162  1534  0157
  146  04011  747  1221
  4515  11541  54171  40
  46  01210116  316
  315  714315  114
  116  4145163  54
  40  11115614  356
  40  12516314514  440
  1671  511641  50  40160
  145162  155151
  163163  1511
  5715656
%%
#MeowChow from http://www.perlmonks.com/

$ _=
 qq
.CG
T--A
A---T
A----T
 C----G
  T----A
  A---T
  G--C
  CG
  CG
  C--G
  G---C
  G----C
 C----G
A----T
C---G
G--C
 AT
 CG
A--T
A---T
G----C
 A----T
  G----C
  C---G
  A--T
  GC
  CG
  G--C
  A---T
  G----C
 G----C
G----C
A---T
T--A
 AT
 CG
T--A
C---G
A----T
 A----T
  G----C
  A---T
  A--T
  CG
  TA
  T--A
  G---C
  G----C
 C----G
A----T
C---G
G--C
 CG
 TA
T--A
C---G
T----A
 C----G
  A----T
  C---G
  G--C
  GC
  TA
  G--C
  C---G
  G----C
 G----C
G----C
A---T
T--A
 CG
 AT
G--C
A---T
A----T
 C----G
  C----G
  A---T
  A--T
  CG
  CG
  G--C
  G---C
  G----C
 A----T
T----A
C---G
G--C
 CG
 TA
A--T
A---T
G----C
 A----T
  A----T
  C---G
  A--T
  GC
  TA
  G--C
  C---G
  T----A
 G----C
G----C
C---G
T--A
 AT
 CG
G--C
G---C
T----A
 C----G
  G----C
  C---G
  C--G
  CG
  AT
  T--A
  C---G
  G----C
 G----C
A----T
T---A
G--C
 CG
 TA
G--C
A---T
G----C
 A----T
  G----C
  .;@_{A
  => C
  =>
  G=>
  T=>}
  =0..3
  ;s;. *
 (w).*
(w).*
n;$_
{ $-
 ++
 /9
%2?$
2:$ 1
};gex;
 s;(.)(
  .)(.)(.
  );chr
  64*$
  1+
  16
  *$2+
  4  *$
  3  +$
 4 ;gex
; eval

%%
#Clinton Pierce
#note: Requires 5.6.0 or better

  '% * % % * % %<>
  * % ~ * % % * % * * % *  *
  * % % * *  % * % *<> * % ~  % % % * %
  *  * * % * % % % % * % % % % % % * % % * %
  % * % % ^ * % % % % *[] % % * * % * * % %  %
  % * %  % % % % % * * % * * @ *  @ % * % %
  % ^ % * % * % * * % % * %  <> % % % % * % %() %
  % % * * * % % * % % * * % * * * * % * * % % * * *
  %  * * * % % * % % *[]<> % % % % * % * * * % % *<>
 % * *  % % % * * % * * * * % * * *  %/ # % * *
  % % % * * / * *// %  % <> // % %/ % // % * %
  * * * || / / % %// * /<> %//  %// % %<>
  * % * %    |  | ||// % || //  // % // * * * %
  %{} %  * ----  | /  %||//  /  ---/ / * % % *
  % *  * ____  | |  /  /  /  /----/ * %
  ----  |  /  //  /
    /  /'
  =~m/(.*)/s;$_=$1;
  s![-|_/s]!!g
  ;%e=('%',0,
  '^',132918,
  '~'=>18054,
  ,
  '*' =>0b01,
  '#'=>13099,
  '[]'=>4278,
  '<>'=>2307,
  '{}'=>9814,
  '()',2076);
  for $a(keys
  %e){$e{$a}=
  sprintf"%b"
  , $e{$a};}
  $y= qq{(}.join(
  '|',map "Q$_E"
  ,keys %e).qq{)};s/$y
  /$e{$1}/gex;print pack"B*",$_;

%%
#Kickstart from http://www.perlmonks.com/
#note: a slight valentine variation :)

  $LOVE=  AMOUR.
  true.cards.  ecstacy.crush
  .hon.promise.de  .votion.partners.
 tender.truelovers. treasure.affection.
devotion.care.woo.baby.ardor.romancing.
enthusiasm.fealty.fondness.turtledoves.
lovers.sentiment.worship.sweetling.pure
.attachment.flowers.roses.promise.poem;
 $LOVE=~ s/AMOUR/adore/g; @a=split(//,
  $LOVE); $o.= chr (ord($a[1])+6). chr
  (ord($a[3])+3). $a[16]. $a[5]. chr
  (32). $a[0]. $a[(26+2)]. $a[27].
  $a[5].$a[25]. $a[8].$a[3].chr
  (32).$a[29]. $a[8].$a[3].
  $a[62].chr(32).$a[62].
  $a[2].$a[38].$a[4].
  $a[3].'.';
  print
  $o;
 
%% 
# chipmunk (aka Ronald J Kimball) <rjk@linguist.dartmouth.edu>
#!perl -l
$_={1..28};$/=[$_,P,a..z,J,$"];print+map{$_&1?$/->{$_}:$/->[$_|1]}
(27,21,19,20,28,1,14,15,20,8,5,18,28,0,5,18,12,28,8,1,3,11,5,18)
%%
#Ronald J Kimball  <rjk@linguist.dartmouth.edu>
$~='`';$_=$:=$~|'%';$;=$^='/'|$~;$;++;$=$~|"'";$;++;$:.=++$;;$/=++$;;+$++;$_.=
'#'|$~;$,=++$/;$_.="$$^$"";++$,;$_.='@'|'*'&~'!';$_.="$,$;$/$"";$_.+='!.'|$~.
$~;$_.="$^$/$$:$"";$_.='@'|':'&~'*';$_.=$:;$_.=$^&'|';$_.=$".$;$_.=+"$~$~$~"|
'!#+';++$.;$.++;`$_$:,>&$.`;
%% 
#Abigail
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)1+$/'
%%
#Abigail
perl -wle 'print "Prime" if (0 x shift) !~ m 0^?$|^(+?)1+$0'
%%
#Abigail
perl -wle 'print "Prime" if ("m" x shift) !~ m m^m?$|^(mm+?)1+$mm'
%%
#Abigail
perl -wle '$, = " "; print grep {(1 x $_) !~ /^(11+)1+$/} 2 .. shift'
%%
#Abigail
perl -wle '(1 x $_) !~ /^(11+)1+$/ && print while ++ $_'
%%
#Abigail
perl -wle '(1 x $_) !~ /^(11+)1+$/ && print while ++ $_' | perl -pe 'INIT {<>}'
%%
#Abigail
perl -wle 'INIT {$_ ++} (1 x $_) !~ /^(11+)1+$/ && print while ++ $_'
%%
#Abigail
perl -wle '(1 .1 x $_) !~ /^(11+)1+$/ && print $_ + 1 while ++ $_'
%%
#Abigail
perl -wle '(1 x $_) !~ /^(11+)1+$/ && print while ($_ ||= 1) ++'
%%
#Abigail
perl -wle '(2 x $_) !~ /^(2|(22+)2+)$/ && print while ++ $_'
%%
#Abigail
perl -weprint<%%
#Abigail
perl -wle$_=<%%
#Abigail
perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-
%%
#Abigail
perl -wleprint -eqq-@{[ -eqw- -eJust -eanother -ePerl -eHacker -e-]}-
%%
#Abigail
perl -swleprint -- -_='Just another Perl Hacker'
%%
#Abigail
perl -swleprint -- -_=Just another Perl Hacker
%%
#Abigail
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..(do{print+chr$^V">$^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
%%
#Abigail
perl -we 'print split /(?=(.*))/s => "Just another Perl Hackern";'
%%
#Abigail
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",
"webster?isindex=perl">http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
=~ /(.*))[-s]+Addition/s) [0]'
%%
#Abigail
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;}'
%%
#Abigail
perl  -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
  for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
  print chr 0x$& and q
  qq}*excess********}'
%%
#Abigail
perl -we '$_ = q ?4a75737420616e6f74686572205065726c204861636b65720as?;??;
  for (??;(??)x??;??)
  {??;s;(..)s?;qq ?print chr 0x$1 and 161 ss?;excess;??}'
%%
#Abigail
perl -e 'for (s??4a75737420616e6f74686572205065726c204861636b65720as?;??;??)
  {s?(..)s??qq ?print chr 0x$1 and q ss??excess}'
%%
#Abigail
perl -e '$a = q 94a75737420616e6f74686572205065726c204861636b65720a9 and
  ${qq$x5F$} = q 97265646f9 and s g..g;
  qq ex63x68x72x20x30x78$&eggee;
  {eval if $a =~ s e..eqq qprint chr 0x$& and x71x20x71x71qeexcess}'
%%
#Abigail
perl -MTime::JulianDay (0)x99=>CM=>(0)x399=>D=>(0)x99=>CD">-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];){}}while$=;$,="x20";print+$_=>September=>MCMXCIII=>=>=>=>=>=>=>=>'
%%
#Abigail
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<_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
%%
#Abigail
$"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_=sub{print/::(.*)/};
$=$/;q->();
%%
#Abigail
$"=$,;*{;qq{@{[(A..Z)[qq[0020191411140003]=~m[..]g]]}}}=*_;
sub  _  {push  @_ => /::(.*)/s and goto &{ shift}}
sub shift {print shift; @_  and goto &{+shift}}
Hack ("Just", "Perl ", " ano", "ern", "ther "); # YYYYMMDD
%%
#Abigail
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
  print+Just (), another (), Perl (), Hacker ();'
%%
#Abigail
perl -we ".
  "1501451624012014516215440110141143153145162".
  "424076405714414516657164164171";`$@`'
%%
#Abigail
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,)))))))))))))))))))))))))
%%
#Abigail
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)))))))))))))))))))))))))
%%
#Abigail
# Perl 5.6.0 broke this.
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4n"/xeg;print#Towers of Hanoi
%%
#Abigail
perl -wlpe '}{$_=$.' file  # Count the number of lines.
%%
#Abigail
perl -wlpe '}$_=$.;{' file  # Count the number of lines.
%%
#Abigail
perl -wlpe '}{$_=$.}{' file  # Count the number of lines.
%%
#Abigail
perl -wlpe '}{*_=*.}{' file  # Count the number of lines.
%%
#Abigail
perl -wlne '}for($.){print' file  # Count the number of lines.
%%
#Abigail
perl -wlne '}{print$.' file  # Count the number of lines.
%%
#Abigail
perl -wlne '}print$.;{' file  # Count the number of lines.
%%
#Abigail
perl -Mstrict='}); print "Just another Perl Hacker"; ({' -le1
%%
#Abigail
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQx02GJCWVhPx02PLx02jNMP"));print+(map{$_^q^"^}@[),"n"
%%
#Abigail
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
  print } sub __PACKAGE__ { &
  print (  __PACKAGE__)} &
  __PACKAGE__
  (  )
%%
#Abigail
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
  % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
  BEGIN {% % = ($ _ = " " => print "Just Another Perl Hackern")}'
%%
#Abigail
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
  qq{Just Another Perl Hackern}}}}}}}}}'  |
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
%%
#Abigail
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/=/./;
%%
#Abigail
sub J::FETCH{Just  }$_.='print+"@{[map';sub J::TIESCALAR{blessmy$J,J}
sub A::FETCH{Another}$_.='{tie my($x),$';sub A::TIESCALAR{blessmy$A,A}
sub P::FETCH{Perl  }$_.='_;$x}qw/J A P';sub P::TIESCALAR{blessmy$P,P}
sub H::FETCH{Hacker }$_.=' H/]}n"';eval;sub H::TIESCALAR{blessmy$H,H}
%%
#Abigail
package Z;use overload'""'=>sub{$b++?Hacker:Another};
sub TIESCALAR{blessmy$y=>Z}sub FETCH{$a++?Perl:Just}
$,=$";my$x=tie+my$y=>Z;print$y,$x,$y,$x,"n";#Abigail
%%
#Abigail
sub A::TIESCALAR{blessmy$x=>A};package B;@q[0..3]=qw/Hacker Perl
Another Just/;use overload'""'=>sub{pop @q};sub A::FETCH{blessmy
$y=>B}; tie my $shoe => qq 'A';print "$shoe $shoe $shoe $shoen";
%%
#Abigail
sub A::TIESCALAR{blessmy$x=>'A'};package B;@q=qw/Hacker Perl
Another Just/;use overload'""',sub{pop @q};sub A::FETCH{bless
my $y=>B};tie my$shoe=>'A';print"$shoe $shoe $shoe $shoen";
%%
#Abigail
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}
%%
#Abigail
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");
%%
#Abigail
perl -wle 'print prototype sub "Just another Perl Hacker" {};'
%%
#Abigail
perl -wle 'sub _ "Just another Perl Hacker"; print prototype &_'
%%
#Abigail
  split // => '"';
${"@_"} = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_)  {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
%%
#Abigail
$" = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%_ = (Just => another => Perl => Hacker); &{%_};
%%
#Abigail
$" = "/"; split $, => eval join "+" => 1 .. 7;
*{"@_"} = sub  {foreach (sort keys %_) {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};
%%
#Abigail
$_ = "x3Cx3Cx45x4Fx54"; s/<Just another Perl Hacker
EOT
%%
#Abigail
$_ = "x3Cx3Cx45x4Fx54";
print if s/<Just another Perl Hacker
EOT
%%
#Abigail
$_ = "x3Cx3Cx45x4Fx54" and s/<Just another Perl Hacker
EOT
%%
#Abigail
$_ = "x3Cx3Cx45x4Fx54n" and s/<"Just another Perl Hacker"
EOT
%%
#Abigail
perl -Mstrict -we '$_ = "goto F.print chop;n=rekcaH lreP rehtona tsuJ";F1:eval'
%%
#Abigail
#!/opt/perl/bin/perl  --  # No trailing newline after the last line! 
BEGIN{$|=$SIG{__WARN__}=sub{$_=$_[0];y-_- -;print/(.)"$/;seek _,-open(_
,"+%%
#Abigail
#!/opt/perl/bin/perl  --  # Remove trailing newline!
BEGIN{$SIG{__WARN__}=sub{$_=pop;y-_- -;print/".*(.)"/; 
truncate$0,-1+-s$0;exec$0;}}//rekcaH_lreP_rehtona_tsuJ
%%
#Abigail
BEGIN {$^H {q} = sub {pop and pop and print pop}; $^H = 2**4.2**12}
"Just "; "another "; "Perl "; "Hackern";
%%
#Abigail
BEGIN {$^H {q} = sub {$_ [1] =~ y/S-ZA-IK-O/q-tc-fe-m/d; $_ [1]}; $^H = 0x28100}
print "Just another Python hackern";
%%
#Abigail
BEGIN {$^H {join "" => ("a" .. "z") [8, 13, 19, 4, 6, 4, 17]} = sub
  {["", "Just ", "another ", "Perl ", "Hackern"] -> [shift]};
  $^H = hex join "" => reverse map {int ($_ / 2)} 0 .. 4}
print 1, 2, 3, 4;
%%
#Abigail
BEGIN {$^H {join "" => ("a" .. "z") [8, 13, 19, 4, 6, 4, 17]} = sub
  {["", "Just ", "another ", "Perl ", "Hacker"] -> [shift]};
  $^H = hex join "" => reverse map {int ($_ / 2)} 0 .. 4}
print 1, 2, 3, 4, "n";
%%
#Abigail
BEGIN {my $x = "Knuth heals rare projectn";
  $^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;
%%
#Abigail
print v74.117.115.116.32;
print v97.110.111.116.104.101.114.32;
print v80.101.114.108.32;
print v72.97.99.107.101.114.10;
%%
#Abigail
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;
%%
#Abigail
print v74.117.115.116.32, v97.110.111.116.104.101.114.32,
  v80.101.114.108.32, v72.97.99.107.101.114.10;
%%
#Abigail
print 74.117.115.116.32, 97.110.111.116.104.101.114.32,
  80.101.114.108.32, 72.97.99.107.101.114.10;
%%
#Abigail
print v74.117.115.116.32.97.110.111.116.104.101.114.
  v32.80.101.114.108.32.72.97.99.107.101.114.10;
%%
#Abigail
print 74.117.115.116.32.97.110.111.116.104.101.114.
  32.80.101.114.108.32.72.97.99.107.101.114.10;
%%
#Abigail
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$rn";
%%
#Abigail
perl -we'$;=$";$;{Just=>another=>Perl=>Hacker=>}=$/;print%;'
%%
#Abigail
$;  # A lone dollar?
=$";  # Pod?
$;  # The return of the lone dollar?
{Just=>another=>Perl=>Hacker=>}  # Bare block?
=$/;  # More pod?
print%;  # No right operand for %?
%%
#Abigail
@;=split//=>"Joel, Preach sartre knuthn";$;=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}];
%%
#Abigail
$_ = "11216516316481411561571641501451628120145"
  . "1621548110141143153145162128177"  and &japh;
sub japh {print "@_" and return if pop; split /d/ and &japh}
%%
#Abigail
sub _ {$_ = shift and y/b-yB-Y/a-yB-Y/  xor  !@ _?
  exit print  :
  print and push @_ => shift and goto &{(caller (0)) [3]}}
  split // => "KsvQtbuf fbsodpmuni flsI "  xor  & _
%%
#Abigail
:$:=~s:$":Just$&another$&:;$:=~s:
:Perl$"Hacker$&:;chop$:;print$:#:
%%
#Abigail
 :;$:=~s:
-:;another Perl Hacker
 :;chop
$:;$:=~y
 :;::d;print+Just.
$:;
%%
#Abigail
 :;$:=~s:
-:;another Perl Hacker
 :;chop
$:;$:=~y:;::d;print+Just.$:
%%
#Abigail
perl -le 's[$,][join$,,(split$,,($!=85))[(q[0006143730380126152532042307].
  q[41342211132019313505])=~m[..]g]]e and y[yIbp][HJkP] and print'
%%
#Abigail
perl -wle 'eval {die ["Just another Perl Hacker"]}; print ${$@}[$#{@${@}}]'
%%
#Abigail
perl -we 'eval {die ["Just another Perl Hackern"]}; print ${$@}[$#{@${@}}]'
%%
#Abigail
perl -wle 'eval {die ["Just another Perl Hacker"]}; print ${${@}}[$#{@{${@}}}]'
%%
#Abigail
perl -we 'eval {die ["Just another Perl Hackern"]}; print ${${@}}[$#{@{${@}}}]'
%%
#Abigail
perl -wle 'eval {die [[qq [Just another Perl Hacker]]]};; print
  ${${${@}}[$#{@{${@}}}]}[$#{${@{${@}}}[$#{@{${@}}}]}]'
%%
#Abigail
$_ = "nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
%%
#Abigail
perl -we '$| = 1; $_ = "Just another Perl Hackern";  print
  substr  $_ => 0, 1 => "" while $_ && sleep 1 => 1'
%%
#Abigail
($;,$_,$|,$)=("@x7Fy~*kde~box*Zoxf*Bkiaox"," "x25,1,"r");
{vec($_=>1+$"=>$^F<$"=int rand 24=>1); 
 print&&select$,,$,,$,,$|/($|+tr/ //c);redo if y/ //>$^F**2};
%%
#Abigail
($;,$_,$|,$)=("@x7Fy~*kde~box*Zoxf*Bkiaox","#"x25,1,"r");
s/./ /;{vec($_=>1+$"=>8)=ord($/^substr$;=>$"=int rand 24=>1);
print&&select$,,$,,$,,$|/($|+tr/#//c);redo if y/#//};sleep 1;
%%
#Abigail
$=-=4*++$|;{print$"x--$==>"@x7Fy~*kde~box*Zoxf*Bkiaox r"
  ^
$/x24if!select$,,$,,$,,join+q=.==>$^W=>$|;$=&&redo}sleep$|;
%%
#Abigail
@_=map{[$!++,$_^$/]}split$?"@x7Fy~*kde~box*Zoxf*Bkiaox";$="r";
$|=++$*;do{($#,$=)=(rand@_,rand@_);@_[$#,$=]=@_[$=,$#]}for($*..@_);
for$:($_-$*]if$_[$">$|..@_-$|){for($|..@_-$:){@_[$_-$|,$_]=@_[$_=>$_-$*]if$_[$_][
$篯[$|]}@_;select$?$?$?0.1}}print$/
%%
#Abigail
@_=map{[$!++=>$_^$/]}split$?>"@x7Fy~*kde~box*Zoxf*Bkiaox";$="r";
$|=++$*;do{($#=>$=)=(rand@_);@_[$#,$=]=@_[$=,$#]}for($">rand@_=>rand@_);@_[$#,$=]=@_[$=,$#]}for($*..@_);
for$:($_-$*]if$_[$_][$?]$|..@_-$|){for($|..@_-$:){@_[$_-$|,$_]=@_[$_=>$_-$*]if$_[$_][$?]芣;print+map{$_->[$|]}@_;select$?$?$?"$[.$|"}}print$/
%%
#Abigail
BEGIN {print "Just "  }
CHECK {print "another "}
INIT  {print "Perl "  }
END  {print "Hackern"}
%%
#Abigail
perl -wle'print"牉圪莘釉偎纶莪纶陷环撐纶"^"x80"x24'
%%
#Abigail
  my $qr =  qr/^.+?(;).+?1|;Just another Perl Hacker;|;.+$/;
  $qr =~  s/$qr//g;
print $qr, "n";
%%
#Abigail
use  lib sub {($) = split /./ => pop; print $"};
eval "use Just" || eval "use another" || eval "use Perl" || eval "use Hacker";
%%
#Alex Gough (alex@rcon.org)
#!/usr/bin/perl
use Quantum::Entanglement qw(:DEFAULT :complex);
$language=entangle(1,'python',1/i,'C',i*i,'perl',1/i**2,'Java',i**5,'C#');
print "Just another $language hacker,n" if $language eq 'perl';
%%
#John Porter <.NET" rel="nofollow">jdporter@min.net>
eval { 62->lZRopcwjoXyup_yuGpXcxbyu() };
$@ =~ s/"(.*?)"/"ss"/;
print((split//,$@)[map{ord($_)-62}split//,$1],",n");
%%
#Casey West
my $html;$html.=$_ while;$html=~s/[^ ]  '  /;$html=~s/ {2,3}/SPC/g;$html=~s/ //g;$html=~ s/SPC/ /g
;$html=~s/,join('',($html=~m/(?:__END__
 
  Type some HTML into a Variable.
and you set it's value. Amazing! 

<object code="srccode">
 You don't have a Perl enabled browser :-( shame

Quote this text:Perl. Live it, love it, learn it.
  Perl. Live it, love it, learn it. color="#FF0000">Perl is the only cure to your headaches
IE
won't help!   When this just hurts...

Go for Perl!

 Author: Casey Tweten, 100% Perl Geek
%%
#Casey West
$_=`perldoc -qjaph`=>s`.+"(.+)".+`$1n`s=>s`b([^a])`u$1`g=>print;
%%
#Casey West
sub q{print};;$_=eval q.q;
# Just another Perl Hacker
;;.;s;.+?b;;s;eval qq;&q;
%%
#Casey West
sub ::(Just{another}Perl{Hacker}){(
$,=>$)=(q q q=>q q q)=>prototype&
::}@(=split q q{([^}]+)}q=>eval{
eval qq:&:::};{(print(@(=>"n"))}
%%
#Casey West
map{s[[^@$]][]go=>chomp,$_=[split/(@+$*)/=>$_]=>map{$_?do{s(
(@+)($*))(chr((length$1)*10+length$2))ex=>print}:1}@$_},__END__
sub proto(@@@@@@@$$$$@@@@@@@@@@@$$$$$$$@@@@@@@@@@@$$$$$
@@@@@@@@@@@$$$$$$@@@$$@@@@@@@@@$$$$$$$@@@@@@@@@@@
@@@@@@@@@@@$@@@@@@@@@@@$$$$$$@@@@@@@@@@$$$$
@@@@@@@@@@$@@@@@@@@@@@$$$$@@@$$@@@@@@@@
@@@@@@@@@@$@@@@@@@@@@@$$$$@@@@@@@@@@$$$$$$$$
@@@$$@@@@@@@$$@@@@@@@@@$$$$$$$@@@@@@@@@$$$$$$$$$
@@@@@@@@@@$$$$$$$@@@@@@@@@@$@@@@@@@@@@@$$$$@){&proto}
%%
#Casey West
#!/usr/local/bin/perl -w
use strict;$|++;$_=q{q{leo%mbwf<?BUBE =fmjix}.
q{!`%-0/]0ujmqt~*udp)s}.
q{id|qbn-((ojpk>/leo%-}.
q{qnpids{(.)}{
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
%%
#Jeff Pinyan < jeffp@crusoe.net>
M^q@@;BEGIN{close"stderr"}print+H|R&k,G^w|E,Q&x|c,,,,
M&~i|t,,,q^&q|^^q&l],&^q|jm>|,N|d|A&c,v&q~|~,c^H^C,w&
M|a,qq^<carrier lost

,,;!EOF
%%
#Joey Mitchell Comeau <aw096@chebucto.ns.ca>
perl -e '$_=$=" perl hacker,";$_&="B";$_|=("B"|"H");$_|="Just another";print;'
%%
#Lauren Smith <LaurenS@bsquare.com>
print grep ord $_,map{y/a-zA-Z//d;$x.="+ $_";chr(eval $x)
}'J74u43-s2tA1-84n33o45th1er5-12-P3e13-82r48l21H13-a6-76
c40k25er2wx8-y6z13-81'=~m#([^!n]{3})#g#tr/-0-9//d;print
%%
#Robin Houston <robin@kitsite.com>

The notorious French literary group _Oulipo_ came up with
the following scenario: A prisoner has a very limited supply
of paper to write on, and so in order to conserve this scarce
resource he decides to use only those letters which extend
neither above nor below the line: aceimnorsuvwxz

Ian Monk's _a russian con's economic missive_
 (http://www.kitsite.com/~robin/ou-x-po/talk/prisoner.html)
is an example of writing within this constraint.

Naturally, I'd like to apply this idea to Perl. Because
non-alphabetic symbols are so important to us, it was
obviously necessary to extend the idea a little. I
analyzed my teRminal font, and decided that the characters

  &+-.:<=>acemnorsuvwxz~

went neither too far up nor too far down. Naturally the results
may be a little different for other fonts, but I needed a
standard. So I started to program in this restricted Perl.

It's a frustrating little language, but rather beautiful.

A JAPH:

s==x= && s==.er & xac.uc coer= && s==m--+m--+m--+m--=e &&
s==xac.~o= && s=.+=<eva~
x
s=c.=c= && s=x=xz&<xm
o
s=x=x = && s=x=<x~
xc
xm
xo
s=x=xer= && s=x=xr& xu=e && s=x=xer = && s=x=xx & uc xn=e &&
s=.=xu & <x~
o
s=x=x ano= && s=x=xu & <x~
o
s=x=xus= && s=x=xo & uc xz=e && s=
== && s=.== && s=.+=reverse uc=e && s=.=
r= && s=.+=reverse uc=se &&

warn uc

I wonder whether it would be possible to write a Turing Machine
in this restricted language, demonstrating its algorithmic
completeness.

 .robin.

Notes:
 http://www.kitsite.com/~robin/ou-x-po/talk/perl-prisoner.html

Analyzing font metrics:
 http://www.kitsite.com/~robin/ou-x-po/fontm.c
 http://www.kitsite.com/~robin/ou-x-po/prisoner.pl
%%
#sn@neopoly.de
#received an honourable mention 2000 TPJ Obfuscated Perl Contest
$=$/,$^X=~m(((.)..l));$~=q,od,,$_='sven@sven.de 2000/01/04'
,$;="/$2$~/$1f141q".(close STDERR).".$2$~";$#=length,print
"(j.{$#})>while;$+}@INC'>map{@ARGV=-f$_.$;?$_.$;:m;();;m>"(j.{$#})>while<>;$+}@INC
%%
#"Christensen, David A. (CHC)" <DChristensen@chc.gov.mb.ca> with thanks to
#Andy Lester
#!/usr/bin/perl
undef $/;@t=split//,; print map{$_<0?chr(-$_):$t[$_]} qw
/-74 32 10 11 5 40 41 44 43 75 80 76 27 48 64 65 26 54 7 1 91 -107 69 58/;
__END__
David Christensen
Technical Consultant
Manitoba Public Library Services

%%
#Mark-Jason dominus http://www.plover.com/

require 5.00553;
use re 'eval';
$|=1;
$z = qr{(?{local$d=1})
  (?:`(?{$d++})
  |.(?{$d--})
  )+?
  (?(?{$d})(?!))
  }x;
$_="``As`SB``Ad``S``BS`BBI``Ae``B`SI`Ed``A?``C``CIi`pI``E?Z``BZZZZZ`KI
```CX`KIZZQZZZQZZZZZQZZZZQZ``BZZ```CX`KX`KXQ``Ee``EeZZZZZQZ```CX`KIZZQ
```CX`KIZZQZZZZQ```CXZ`KIZZQ``Ee```CX`KIZZQ``EdZZZQZ``BZZ```CX`KX`KXQ`
`BZ```CX`KIZZ`KXZQ``Ee```CX`KIZZQ``EdZZZQ``BZZZZ`KXQZ``BZZ```CX`KX`KXQ
``B```CXZ`KIZZ`KXQ``Ee``EeZZZZZQ``B``EeZZZ`KXQ``Ee``EdZZZQ``Ee```CX`KI
ZZQ``EdZZZQ``Ed``Ee```CX`KX`KI";
s/n//g;s/Q/`KI``E?/g;s/X/IZZZ/g;s/Z/``Es/g;
1 while
  s{`I($z)  (?{$q=0})|``K($z)($z)  (?{$q=1})
  |```S($z)($z)($z)(?{$q=2})|```B($z)($z)($z)  (?{$q=3})
  |```C($z)($z)($z)(?{$q=4})|``A($z)($z)  (?{$q=5})
  |`i($z)  (?{$R++,$q=6})|`p($z)(?{print(chr 120-$R), $R=0, $q=7})
  |`E($z)  (?{$q=8})|`V($z)  (?{$q=9})
  }
  {local $^W;
  $q<5 ?($1,$2,"``$4$6`$5$6","`$7`$8$9","``$10$12$11")[$q]
  :$q==5?($bind{$13}=$14,"")
  :($15,"",$bind{$17},"")[$q-6]
  }ex;
%%
Author:  Mark-Jason Dominus
@P=split//,".URRUUc8R";@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. ]
%%
#Yanick Champoux
#http://www.iro.umontreal.ca/~champoux/sigs/
print map chr$_[0]-ord$_,@_='200ocT╣ZYT`cV▁cV╜ge]cV'=~m;(d+|.);g;
%%
#Richard Proctor <Richard@waveney.org>
@{$_}=(@{$_-1},1)for(1..9);
map{s/./sprintf"%02d",ord$&/eg}($h,$l)
=("0XcFMWDcDDF.CD","cY"cEY*cHprint chr((@{substr($h,$_,1)}.@{substr($l,$_,1)})+32)for(0..23)
%%
#Richard Proctor <Richard@waveney.org>
sub x{for(split'',"Abigail!"x3){print chr(shift()+ord)}}
x(9,19,10,13,-65,-8,2,78,51,6,-4,11,-65,-25,-7,81,43,-66,-33,-6,2,2,-7,81)
%%
#Gaal Yahas <gaal@forum2.org>
perl -le
  '@Just_another_Perl_hacker=map{/^[^*].*hack/&&s,_, ,g&s,$,,,&print}%::'
%%
From ARP.intel.com" rel="nofollow">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*/,<,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(/(ddd)/, <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($_=)=~/^(.*)/;'
%%
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/([00-37])/"^".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/([00-37177])/'^'.pack('c',ord($1)^64)/eg;
 $_;
}

print &unctrl("0002nr27ABC177"),"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=; 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)
$_ = <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"$sn";
%%
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;
%%
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"$sn";
Larry> And a special version just for Randal:
Larry>  grep(do{for(ord){$i+=$_%8;grep(vec($s,$i++,1)=1,5..($_>>3||print"$sn"));}},
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");$_=<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() {next unless /([A-Z]):(.*)/; $m{$2}=$1;} close(M);
print grep($_ = ($m{$_} || $_), split(/([^-.])/,<.--- ..- ... -/.- -. --- - .... . .-./.--. . .-. .-../.... .- -.-. -.- . .-.,
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}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@xfor$x($[..$#x){grep(*y=*_,$x[$x]);$y=shift;}print@x;

@ARGV=split(//,'Just another Perl hacker,');push(@x,'')while@xfor$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 <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;$_=<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)
$_=<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/,<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(/Sn?/,< :-)  :-)  :-)  :-)  :-)  :-) :-) :-)  :-) :-)  :-) :-) :-)  :-)  :-) :-)
 :-)  :-)  :-)  :-) :-)  :-) :-) :-)  :-) :-)  :-) :-) :-) :-)  :-)
 :-)  :-)  :-) :-) :-)  :-)  :-) :-)  :-)  :-)  :-) :-)  :-)  :-) :-)
 :-)  :-)  :-)  :-)  :-)  :-)  :-) :-)  :-)  :-) :-) :-)  :-)
 :-)  :-) :-)  :-)  :-)  :-) :-)  :-)  :-) :-)  :-) :-)  :-) :-)
  :-) :-)  :-)  :-) :-)  :-)  :-)  :-) :-)  :-)  :-) :-) :-)  :-) :-)  :-)
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(/ /, <zero one two three four five six seven eight nine
EOL
for (split(/s+/,<$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)
$_ = <J0204020301020103042001060101010202060107010801031300010701080210
0103020604200205150401070108,
EOF
%%
Date:  27 Apr 90 21:02:12 GMT
From:  merlyn@iwarp.intel.com (Randal Schwartz)
$_ = <+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($_ ^ "<202013421M_CEA^RP421434300033240130
0210004",0,25)'; eval
%%
Date:  18 Apr 90 23:02:31 GMT
From:  merlyn@iwarp.intel.com (Randal Schwartz)
$_='vec(1,1,1); print substr($_ ^ "<202013421M_CEA^RP421434300033240130
210004",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 thnhroeaarcn.");$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,$_)

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10748419/viewspace-1007852/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10748419/viewspace-1007852/