究竟有多少种打印出 just another perl hacker 的方法呢？
看看就知道了 :-)
%%#JoeCamel on http://www.perlmonks.com/#note: requires Perl5.6.0 or better#!/usr/bin/perl -wuse 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$/;$_=<DATA>;y/ODA/n / /ds;@yoda=map{length}split;print chroct 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? ]%%#Erudil from http://www.perlmonks.com/#!/usr/bin/perl -w # camel codeuse strict;
$_='ev al("seek/040D ATA,0, 0;");foreach(1..3) {<DATA>;}my @camel1hump;my$camel; my$Camel ;while( <DATA>){$_=sprintf("%-69s",$_);my@dromedary 1=split(//);if(defined($_=<DATA>)){@camel1hum p=split(//);}while(@dromeda ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif t(@dromedary1 ))&&//S/){$camel1hump+=1<<$CAMEL;} $CAMEL--;if(d efined($_=shift(@dromedary1))&&//S/){ $camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift( @camel1hump))&&//S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if( defined($_=shift(@camel1hump))&&//S/){$camel1hump+=1<<$CAME L;;}$camel.=(split(//,"/040..m`{/J/047/134}L^7FX"))[$camel1h ump];}$camel.="/n";}@camel1hump=split(//n/,$camel);foreach(@ camel1hump){chomp;$Camel=$_;y/LJF7/173/175`/047//061/062/063/ 064/065/066/067/070/;y/12345678/JL7F/175/173/047`/;$_=reverse; print"$_/040$Camel/n";}foreach(@camel1hump){chomp;$Camel=$_;y /LJF7/173/175`/047/12345678/;y/12345678/JL7F/175/173/0 47`/; $_=reverse;print"/040$_$Camel/n";}';;s//s*//g;;eval; eval ("seek/040DATA,0,0;");undef$/;$_=<DATA>;s//s*//g;( );;s ;^.*_;;;map{eval"print/"$_/"";}/.{4}/g; __DATA__ /124 /1 50/145/040/165/163/145/040/157/1 46/040/1 41/0 40/143/141 /155/145/1 54/040/1 51/155/ 141 /147/145/0 40/151/156 /040/141 /163/16 3/ 157/143/ 151/141/16 4/151/1 57/156 /040/167 /151/164/1 50/040/ 120/1 45/162/ 154/040/15 1/163/ 040/14 1/040/1 64/162/1 41/144 /145/ 155/14 1/162/ 153/04 0/157 /146/ 040/11 7/047/ 122/1 45/15 1/154/1 54/171 /040 /046/ 012/101/16 3/16 3/15 7/143/15 1/14 1/16 4/145/163 /054 /040 /111/156/14 3/056 /040/ 125/163/145/14 4/040/ 167/1 51/164/1 50/0 40/160/ 145/162 /155/151 /163/163 /151/1 57/156/056%%#MeowChow from http://www.perlmonks.com/
$ _= qq.CGT--AA---TA----T C----G T----A A---T G--C CG CG C--G G---C G----C C----GA----TC---GG--C AT CGA--TA---TG----C A----T G----C C---G A--T GC CG G--C A---T G----C G----CG----CA---TT--A AT CGT--AC---GA----T A----T G----C A---T A--T CG TA T--A G---C G----C C----GA----TC---GG--C CG TAT--AC---GT----A C----G A----T C---G G--C GC TA G--C C---G G----C G----CG----CA---TT--A CG ATG--CA---TA----T C----G C----G A---T A--T CG CG G--C G---C G----C A----TT----AC---GG--C CG TAA--TA---TG----C A----T A----T C---G A--T GC TA G--C C---G T----A G----CG----CC---GT--A AT CGG--CG---CT----A C----G G----C C---G C--G CG AT T--A C---G G----C G----CA----TT---AG--C CG TAG--CA---TG----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, '@'=>19630, '*' =>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>$~='`';$_=$:=$~|'%';$;=$^='/'|$~;$;++;$/=$~|"'";$;++;$:.=++$;;$/=++$;;+$/++;$_.='#'|$~;$,=++$/;$_.="$/$^$/"";++$,;$_.='@'|'*'&~'!';$_.="$,$;$/$/"";$_.+='!.'|$~.$~;$_.="$^$/$/$:$/"";$_.='@'|':'&~'*';$_.=$:;$_.=$^&'|';$_.=$".$/;$_.=+"$~$~$~"|'!#+';++$.;$.++;`$_$:,>&$.`;%% #Abigailperl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)/1+$/'%%#Abigailperl -wle 'print "Prime" if (0 x shift) !~ m 0^/0?$|^(/0/0+?)/1+$0'%%#Abigailperl -wle 'print "Prime" if ("m" x shift) !~ m m^/m?$|^(/m/m+?)/1+$mm'%%#Abigailperl -wle '$, = " "; print grep {(1 x $_) !~ /^(11+)/1+$/} 2 .. shift'%%#Abigailperl -wle '(1 x $_) !~ /^(11+)/1+$/ && print while ++ $_'%%#Abigailperl -wle '(1 x $_) !~ /^(11+)/1+$/ && print while ++ $_' | perl -pe 'INIT {<>}'%%#Abigailperl -wle 'INIT {$_ ++} (1 x $_) !~ /^(11+)/1+$/ && print while ++ $_'%%#Abigailperl -wle '(1 .1 x $_) !~ /^(11+)/1+$/ && print $_ + 1 while ++ $_'%%#Abigailperl -wle '(1 x $_) !~ /^(11+)/1+$/ && print while ($_ ||= 1) ++'%%#Abigailperl -wle '(2 x $_) !~ /^(2|(22+)/2+)$/ && print while ++ $_'%%#Abigailperl -weprint/</<EOT/; -eJust -eanother -ePerl -eHacker -eEOT%%#Abigailperl -wle/$_=/</<EOT/;y///n// //;print/; -eJust -eanother -ePerl -eHacker -eEOT%%#Abigailperl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-%%#Abigailperl -wleprint -eqq-@{[ -eqw//- -eJust -eanother -ePerl -eHacker -e//-]}-%%#Abigailperl -swleprint -- -_='Just another Perl Hacker'%%#Abigailperl -swleprint -- -_=Just/ another/ Perl/ Hacker%%#Abigailperl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$
