竟有多少种打印出 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$/;$_=<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? ]
%%
#erudil from http://www.perlmonks.com/
#!/usr/bin/perl -w # camel code
use strict;
$_='ev
al("seek\040d
ata,0, 0;");foreach(1..3)
{<data>;}my @camel1hump;my$camel;
my$camel ;while( <data>){$_=sprintf("%-6
9s",$_);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
.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,
'@'=>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>
$~='`';$_=$:=$~|'%';$;=$^='/'|$~;$;++;$\=$~|"'";$;++;$:.=++$;;$/=++$;;+$\++;$_.=
'#'|$~;$,=++$/;$_.="$\$^$\"";++$,;$_.='@'|'*'&~'!';$_.="$,$;$/$\"";$_.+='!.'|$~.
$~;$_.="$^$/$\$:$\"";$_.='@'|':'&~'*';$_.=$:;$_.=$^&'|';$_.=$".$\;$_.=+"$~$~$~"|
'!#+';++$.;$.++;`$_$:,>&$.`;
%%
#abigail
perl -wle 'print "prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
%%
#abigail
perl -wle 'print "prime" if (0 x shift) !~ m 0^\0?$|^(\0\0+?)\1+$0'
%%
#abigail
perl -wle 'print "prime" if ("m" x shift) !~ m m^\m?$|^(\m\m+?)\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\<\<eot\; -ejust -eanother -eperl -ehacker -eeot
%%
#abigail
perl -wle\$_=\<\<eot\;y/\\n/\ /\;print\; -ejust -eanother -eperl -ehacker -eeot
%%
#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..($^w=@^v))=>do{print+chr$^v
%$^u;$^v/=$^u}while$^v!=$^w'
%%
#abigail
perl -we 'print split /(?=(.*))/s => "just another perl hacker\n";'
%%
#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",
"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 e\x63\x68\x72\x20\x30\x78$&eggee;
{eval if $a =~ s e..eqq qprint chr 0x$& and \x71\x20\x71\x71qeexcess}'
%%
#abigail
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=>=>=>=>=>=>=>=>'
%%
#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<<$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())))))))))))))))))))))))
%%
#abigail
$"=$,;*{;qq{@{[(a..z)[qq[0020191411140003]=~m[..]g]]}}}=*_=sub{print/::(.*)/};
$\=$/;q<just another perl hacker>->();
%%
#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", "er\n", "ther "); # yyyymmdd
%%
#abigail
perl -wle '$, = " "; sub autoload {($autoload =~ /::(.*)/) [0];}
print+just (), another (), perl (), hacker ();'
%%
#abigail
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";`$@`'
%%
#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 => $4\n"/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
//=>"igracvgq\x02gjcwvhp\x02pl\x02jnmp"));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 hacker\n")}'
%%
#abigail
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
%%
#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{bless\my$j,j}
sub a::fetch{another}$_.='{tie my($x),$';sub a::tiescalar{bless\my$a,a}
sub p::fetch{perl }$_.='_;$x}qw/j a p';sub p::tiescalar{bless\my$p,p}
sub h::fetch{hacker }$_.=' h/]}\n"';eval;sub h::tiescalar{bless\my$h,h}
%%
#abigail
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
%%
#abigail
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";
%%
#abigail
sub a::tiescalar{bless\my$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 $shoe\n";
%%
#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
$_ = "\x3c\x3c\x45\x4f\x54"; s/<<eot/<<eot/e; print;
just another perl hacker
eot
%%
#abigail
$_ = "\x3c\x3c\x45\x4f\x54";
print if s/<<eot/<<eot/e;
just another perl hacker
eot
%%
#abigail
$_ = "\x3c\x3c\x45\x4f\x54" and s/<<eot/<<eot/e and print;
just another perl hacker
eot
%%
#abigail
$_ = "\x3c\x3c\x45\x4f\x54\n" and s/<<eot/<<eot/ee and print;
"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(_
,"+<$0"),2;truncate _,tell _;close _;exec$0}}//rekcah_lrep_rehtona_tsuj
%%
#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 "; "hacker\n";
%%
#abigail
begin {$^h {q} = sub {$_ [1] =~ y/s-za-ik-o/q-tc-fe-m/d; $_ [1]}; $^h = 0x28100}
print "just another python hacker\n";
%%
#abigail
begin {$^h {join "" => ("a" .. "z") [8, 13, 19, 4, 6, 4, 17]} = sub
{["", "just ", "another ", "perl ", "hacker\n"] -> [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 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;
%%
#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$r\n";
%%
#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 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}];
%%
#abigail
$_ = "\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}
%%
#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 fbsodpmu\ni 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 hacker\n"]}; print ${$@}[$#{@${@}}]'
%%
#abigail
perl -wle 'eval {die ["just another perl hacker"]}; print ${${@}}[$#{@{${@}}}]'
%%
#abigail
perl -we 'eval {die ["just another perl hacker\n"]}; 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 hacker\n"; print
substr $_ => 0, 1 => "" while $_ && sleep 1 => 1'
%%
#abigail
($;,$_,$|,$\)=("\@\x7fy~*kde~box*zoxf*bkiaox"," "x25,1,"\r");
{vec($_=>1+$"=>$^f<<$^f)=ord($/^substr$;=>$"=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$:($|..@_-$|){for($|..@_-$:){@_[$_-$|,$_]=@_[$_=>$_-$*]if$_[$_][
$篯<$_[$_-$*][$芣;print+map{$_->[$|]}@_;select$?$?$?0.1}}print$/
%%
#abigail
@_=map{[$!++=>$_^$/]}split$?>"\@\x7fy~*kde~box*zoxf*bkiaox";$\="\r";
$|=++$*;do{($#=>$=)=(rand@_=>rand@_);@_[$#,$=]=@_[$=,$#]}for($*..@_);
for$:($|..@_-$|){for($|..@_-$:){@_[$_-$|,$_]=@_[$_=>$_-$*]if$_[$_][$?]<$_[$_-$*][$芣;print+map{$_->[$|]}@_;select$?$?$?"$[.$|"}}print$/
%%
#abigail
begin {print "just " }
check {print "another "}
init {print "perl " }
end {print "hacker\n"}
%%
#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 <jdporter@min.net>
eval { 62->lzropcwjoxyup_yugpxcxbyu() };
$@ =~ s/"(.*?)"/"ss"/;
print((split//,$@)[map{ord($_)-62}split//,$1],",\n");
%%
#casey west
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>
%%
#casey west
$_=`perldoc -qjaph`=>s`.+"(.+)".+`$1\n`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}@$_}<data>,__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{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
%%
#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<\x11a"\x17\x1b\x09rh\x0d\x0c\x18\x11x>^<<,,,,,
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.
