Acme::EyeDrops

CPAN 에서 한번씩 모듈을 검색하다 보면

별 5개가 가득 찬 모듈은 보기가 힘듭니다.

그런데 이 모듈은 별 5개를 받아도 모자라다는 느낌이 드네요^^

지금부터 소개할 모듈은 Acme::EyeDrops 라는 모듈로

예전에 Naver Perl 카페에서 Raymundo님이 한번 언급해 주셨습니다.

얼마전 읽었던 별찍기 에서 perl 스페셜 버전으로도 소개가 되었던 Acme::EyeDrops

저도 궁금해서 한번 사용해 보았는데 

아래 예제를 보도록 하겠습니다.

Acme::EyeDrops

Visual Programming in Perl 
Acme-EyeDrops-1.55 (2 Reviews) - 01 Dec 2008 - Andrew J. Savige 

Perl 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 ''=~('('. '?'.'{'.('`'| '%').('['^'-'). ('`'|'!') .('`'|',')."\"".( '['^'+').('[' ^')').('`'|')').( '`'|'.'). ('['^'/').('{'^ '[').'\\'.'"'.('`'^')').('{'^'[').('`'|',').( '`'|'/').('['^'-' ).('`'|'%').('{'^'[').(('`')^ '"').('`'|'!').("\`"| '.'). ('{'^"\[").( '{'^'"').("\`"| '/') .("\["^ '.').("\`"| '.') .(('`')| "'").( "\{"^ ('[')).( '`' |'(') .(('`')| '%' ).''. ('`'|'%' ).( '{'^ '[').'^'. '^' .(( '\\') ).('"'). ';'."\"". '}'. ')' );$: ='.'^'~'; $~='@'|'('; $^="\)"^ (( '[')) ;$/="\`"| '.';$,="\("^ '}';$\='`' |+ "\!"; $:=(')')^ '}';$~=('*')| '`';$^='+'^ (( '_')) ;$/="\&"| '@';$,="\["& '~';$\="\,"^ '|' ;($:)= '.'^'~';$~ ='@'|"\("; $^=')'^"\["; ($/) =('`')| '.';$,="\("^ '}';$\ ='`'|'!';$: =')'^ "\}";$~= '*'|('`');$^= '+'^'_'; $/='&' |'@';$,= '['&'~';$\=','^'|' ;$:='.' ^'~' ;$~='@'| '(';$^=')' ^'[';$/='`'|'.';$,='('^ '}';$\='`' |'!';$:=')' ^'}';$~='*'| '`';$^='+'^'_';$/='&'|'@' ;$,="\["& '~';$\=','^('|');$:= '.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.' ;( $,)='('^'}';$\='`'|"\!"; $:=')'^'}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:='.'^'~' ;$~='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\= '`'|'!';$:=')'^'}';$~="\*"| '`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^=')' ^'[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+'^"\_";$/= '&'|'@';$,='['&'~';$\=','^'|';$:='.'^'~';$~='@'| '(';$^=')'^'[';$/='`'|'.' ;$,='('^'}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^ ='+'^'_';$/='&'|'@';$, ='['&'~';$\=(',')^ '|';$:='.'^'~';$~='@'|'('; $^=')'^'[';$/='`'|'.' ;$,='('^('}');$\= '`'|'!';$:=')'^'}';$~='*'| '`';$^='+'^'_';$/='&' |'@';$,='['&"\~"; $\=','^'|';$:='.'^'~';$~= '@'|'(';$^=')'^"\["; $/='`'|('.');$,= '('^'}';$\='`'|('!');$:= ')'^'}';$~='*'|'`'; $^='+'^'_';$/= '&'|'@';$,='['&"\~";$\= ','^'|';$:='.'^'~' ;$~=('@')| '(';$^=')'^'[';$/="\`"| '.';$,='('^'}';$\ ='`'|'!';$:=')'^'}';$~ ='*'|'`';$^='+' ^'_';$/='&'|('@');$,= '['&"\~";$\= ','^'|';$:='.'^'~'; $~='@' |'(';$^=')'^"\["; Output: 1 I love Ban Young hee ^^

codepad link : http://codepad.org/0zWm7GsX

위와 같이 perl 코드를 실행시키면 아래와 같은 출력물이 나타납니다.

파일은 총 3개가 필요합니다.

프로그램을 돌리기 위한 파일, 옵션을 지정할 파일

이 두 파일을 통해 새로운 코드 파일이 생성이 됩니다.

Perl,  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 ''=~('(?{'.('`'|'%').('['^'-').('`'|'!').('`'|"\,").'"\\$-=!\\$%<<('.( '['^'+').('`'|'/').('['^'+').'||'.('^'^('`'|'*')).');'.('['^'+').('['^ (( (( (( (( (( (( ')') )) )) )) )) )) )) .(('`')| (( (( (( (( (( (( ')') )))) )) )) )) )) .( (( (( (( '`'))))))|'.').( (( (( (( (( (( (( '[') )))) )) )) )) )^ (( (( (( (( '/'))))) )))).''. (( (( (( (( (( (( (( (( '\\' )))) )))) )))) )) )) .+ (( (( (( (( (( (( (( (( (( '$')))))))))))))))))).'\\"'.('[' ^+ (( (( (( (( (( '#') )))) )) )) )) .+ (( (( (( (( '\\')))) )))).'$' .+ (( (( (( (( (( (( (( '-') )))) )))) )))) ). (( (( (( (( (( (( (( (( (( (( (( ','))))))))))))) ))))))))).("\`"| (( (( (( (( (( (( (( (( '-') )))) )))) )))) )) )) .( (( (( (( (( (( (( (( (( (( '`'))))) )))))))) )))))|(( '!'))).( (( (( (( (( (( (( (( (( (( (( (( (( '[') )))) )))) )))) )))) )))) )))^ '+') .+ (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( (( '(')))))))))))))))))))))))))))))))))))))).'\\$-&\\$_?'."'".('{'^ (( (( (( '['))))))).('{'^'[')."'".':'."'".'/\\\\\\\\'."'".',\\$%..\\$.++),\\$/' .('['^',').('`'|'(').('`'|')').('`'|',').('`'|'%').'\\$---"})');$:='.' Output: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 /\ /\/\ /\ /\ /\/\/\/\ /\ /\ /\/\ /\/\ /\ /\ /\ /\ /\/\/\/\/\/\/\/\ /\ /\ /\/\ /\/\ /\ /\ /\ /\ /\/\/\/\ /\/\/\/\ /\ /\ /\ /\ /\/\ /\/\ /\/\ /\/\ /\ /\ /\ /\ /\ /\ /\ /\ /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\

codepad link :http://codepad.org/dc7uNiEY

perl Hacker 들이 만든 Acme:::EyeDrops 모듈...

사용법이 어렵지 않으니

여자친구 있으신 분들은 어서 예쁜 메세지와 함께 마음을 전달 하시길^^

Perl, 

1 2 3 map(($r=$_,map(($y=$r-$_/3,$l[24-$r] .=(' ','@')[$y**2-20*$y+($_**2)/3<0]),(0..30)),),(0..24)), print join("\n", map(reverse($_).$_, @l)), "\n"; Output: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 @@@@@@@@@ @@@@@@@@@ @@@@@@@@@@@@@@ @@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@ @@@@@@@@@@ @@@@@@