[PerlChina] Re: CN Perl Advent Day 9: Have fun

funny

On Dec 9, 7:25 am, Fayland Lam <fayl...@gmail.com> wrote:
> http://perlchina.org/advent/2009/HaveFun.html
>
> =for advent_year 2009
>
> =for advent_day 9
>
> =for advent_title Have Fun
>
> =for advent_author Fayland Lam
>
> 本文存属玩乐。
>
> M<Acme::Pony>
>
> =begin code
>
> use Acme::Pony;
> print "Hello world";
>
> =end code
>
> 将上文保存为 hello.pl, 然后运行 perl hello.pl, 最后打开 hello.pl 你会发现整个文件都变了。变成了：
>
> =begin pre
>
> use Acme::Pony;
> bu
> ffYBUf
> fYbuFFYbU
> ffYbUFfyBUF
> fYBuffYbUFFy
> buffyBuffYb
> ufFybuffYbu Ff
> YbUffYBuffYB uFFyb
> uFFyBUfFYBUfFYbuffybUffYBUfFY
> BuFFYBuFFybUffYBUffyBUfFYbufFyb
> UFf yBuffYbuFFyBUFfybUfFybuffY
> bUf fybUffyBUffYBuFFYbufFyB
> uffy BUFFYbUfFYBUF
> fYbU fFybuFfyBUFf
> yBu ffYbufFyBU
> FFY bUf FYBUFfY
> bXX XXX XXX
> XX XXX
> XXX XXX
>
> =end pre
>
> 更惊奇的事情还在后头，重新运行 perl hello.pl, 你会发现它输出了 "Hello world". :)
>
> 如果上述还不够过瘾，试试下面的。
>
> 编辑一个 hello.pl
>
> =begin code
>
> print "Hello World\n";
>
> =end code
>
> 然后创建一个 havefun.pl, paste 如下代码：
>
> =begin code
>
> use Acme::EyeDrops qw(sightly);
> print sightly( {
> Shape => 'camel',
> SourceFile => 'hello.pl',
> Regex => 1
>
> } );
>
> =end code
>
> 完毕后运行 perl havefun.pl > hello2.pl
>
> 打开 hello2.pl, 你会发现一只大骆驼
>
> =begin pre
>
> ''=~('('.'?'
> .'{'.( '`'|'%').("\["^
> '-').('`'| '!').('`'|',').'"'
> .('['^'+') .('['^ ')').('`'|')').('`'|
> '.').('['^'/').('{'^ '[').'\\'.'"'.('`'^'('
> ).('`'|'%').('`'|',') .('`'|',').('`'|"\/").(
> '{'^'[').('{'^','). ('`'|'/').('['^')').("\`"|
> ',').('`'|'$') .'\\'.'\\'.('`'|'.').'\\'.'"'
> .';'.'"'."\}". ')');$:='.'^'~';$~='@'|('(');$^=
> ')'^'[';$/='`'| '.';$,='('^'}';$\='`'|'!';$:=(')')^
> '}';$~='*'|'`'; $^='+'^'_';$/='&'|'@';$,='['&('~');$\=
> ','^'|';$:='.'^ '~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,=
> '('^'}';$\='`' |'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/=
> '&'|'@';$,='[' &'~';$\=','^'|';$:='.'^'~';$~='@'|"\(";$^=
> ')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'
> |'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:='.'^'~'
> ;$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:
> =')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','
> ^'|';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}'
> ;$\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,
> ='['&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^=')'^'['; $/=
> '`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`' ;$^
> ='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|' ;$:='.'^ '~'
> ;$~='@'|'(';$^=')'^'[';$/='`'|"\.";$,= '('^'}' ;$\
> ='`'| '!';$:=')'^'}';$~='*'|"\`";$^= '+'^'_' ;$/
> ='&'|'@';$,='['&'~';$\=(',')^ '|';$:= '.'
> ^'~';$~= '@'|'(';$^ ="\)"^ '[';$/ =(
> ('`'))| "\.";$,= ('(')^ '}';$\ =(
> ('`'))| "\!";$:= "\)"^ "\}"; (
> ($~))= '*'|'`'; ($^) ='+'
> ^"\_"; $/=('&')| '@'; ($,)
> ='['& "\~";$\= ','^ '|';
> ($:)= '.'^'~' ;$~= '@'|
> '('; $^=')' ^'[' ;$/=
> '`'| '.' ;$,= '('^
> '}'; $\= '`' |((
> '!' )); $:= ')'
> ^(( '}' )); $~=
> '*' |(( '`' ))
> ;( ($^))= ((
> (( '+')) ))
> ^+ "\_";$/= ((
> '&' ))|+ "\@"; $,
> =(( '['))& '~'; $\=
> ','^ "\|";$:= '.' ^'~'
> ;($~)= ('@')|
> "\(";$^= ')'^'['
>
> =end pre
>
> 如果你运行它，perl hello2.pl, 毫无疑问，上述图片是可运行的，输出还是 "Hello World".
>
> 如果骆驼不够好看，想看看 Larry Wall? 将 Shape => 'camel' 改为 Shape => 'larry', 重新运行
> perl havefun.pl > hello2.pl 你会发现一个可以运行的 Larry Wall 图片：
>
> =begin pre
>
> ''=~('('.'?'.'{'
> .('`'|'%').('['^"\-").(
> '`'|'!').('`'|',').'"'.(('[')^
> '+'). ('['
> ^')' ).(
> '`'| ')'
> ).+( ( '`'
> )|(( ( '.'
> )))) .( ( '['
> )^(( ( ( '/'
> ))) )) .( '{'
> ^(( (( ( '['
> ))) ))). ( (((
> ((( '\\' ) )))
> ))) .'"' . (((
> '`' ))^'(').( ( '`'
> )|+ (( ( ((
> '%' )) ) ))
> ).( ( ( ((
> '`' ) )))|+
> ',' ) .(
> '`' | ',').('`'|'/').('{'^'[').('{'^(',')).(
> '`' |'/').("\["^ "\)").( ( ( "\`"))| (
> ',' ) ) .+( '`' |+ ( ( (( '$' ))) )
> ).+ ( ( '\\')).'\\'. ( ( '`')|('.')). (
> ((( ( ( ( ( (
> (( ((( ( ( ( (( (
> (( ( '\\') ) ) )) )
> )) ) ) ) ) ) )
> )) ) ))) ))).'"'.';'.'"' . '}'.')');$:=
> (( ( ( ( (
> ( ( ( ( (
> ( ( ( '.' ) )
> ) ))) )) )
> ) ) )))^'~';$~='@'|'(';$^ =
> ( ( ')'))^'[';$/='`'|'.';$,= (
> ( ( '(')))^'}';$\='`'|"\!";$:= (
> ( ( ')')) )^'}';$~="\*"| '`'; (
> ( ( $^)) ) = '+' ^
> (( '_' ));$/='&'|'@';#; #;#
> ; #
> ; #
> ; #
> ; # ;
> # ; #
> ; # ;
> # ; #
> ; # ; #
> ; # ; #
> ; #;# ;# ;
> # ;#;#;#;#;#; #
>
> =end pre
>
> 更多更好玩的图片，请参考 M<Acme::EyeDrops>
>
> 更多更好玩的模块，有 M<Acme::Bleach>, M<Acme::Morse>, M<Acme::DWIM>,
> M<Acme::Smirch>, M<Acme::Buffy >, M<Acme::AsciiArt2HtmlTable> 等。玩也玩不够。
>
> Have Fun! Enjoy!
>
> 谢谢
>
> --
> Fayland Lam //http://www.fayland.org/
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---