そういやそろそろクリスマスシーズンですね。 [Perl]

| コメント(0) | トラックバック(0)

というわけで、クリスマスらしいAAのようなものを。

http://codepad.org/mdisVGHM

上からクリスマスキャンドル、雪の結晶、シャンパンとシャンパングラス、プレゼントを持ったサンタクロース 。 だ、そうです。

一応こっちにもソースコードを

eval eval '"'.


                                 (
                     (       (
                           (         (
                (    (         (            (
                                       (
             (      (       (    (          (    (
                             ((
                (      (      '['   )    )     )   )
           )                  )))))
                  )          ))))))))           ^
                       (    ('+'))).(   (    (
                (           ('['))))^
                             ')').(  (   '`')
                      |    (    (     ')'))).(
                                (  '`')|'.').(
                             '['^'/').(('{')^
                        '[').'<<'.('`'^"\%").(
                    '`'^'/').('{'^'(').(';').(
                    '!'^'+').('{'^'"').(('`')|
                    '/').('['^'.').('{'^'[').
                    ('`'|'"').('`'|'%').('['^
                    '/').('['^'/').('`'|'%').(
                   '['^')').('{'^'[').('['^','
                  ).('`'|'!').('['^'/').("\`"|
                  '#').('`'|'(').('{'^'[').(
                  '`'|'/').('['^'.').(('[')^
                     '/').('!'^'+').('{'^'"'
                     ).('`'|'/').('['^'.').(
                     '{'^'[').('`'|'"').('`'
                     |'%').('['^'/').(('[')^
                     '/').('`'|'%').('['^')'
                     ).('{'^'[').('`'|'.').(
                     '`'|'/').('['^'/').('{'
                     ^'[').('`'|'#').(('[')^
                     ')').('['^'"').('!'^'+'
   )                 .('`'^'"').('`'|"\%").(
'['^'/').            ('['^'/').('`'|('%')).(        (     (
  '['))^"\)").(      '{'^'[').('`'|'.').('`'  |    '/').('['^
   '/').('{'^"\[").( '['^'+').('`'|'/').('['   ^'.').('['^'/').(
   ((   '!'))^'+').('`'^')')."'".('`'|'-').(  '{'^'[').('['^'/').(
         ((  '`'))|'%').('`'|',').('`'|',').('`'|')').('`'|'.')
               .''.   ('`'|"'").('{'^'[').( ((   (     (     (
                (         ('[')))))))^
                      '"').('`'|'/')
                  .('['^'.').(('{')^
                '[').('['^(',')).(
                  '`'  |((   '('
           )))                          .+(
         '['^'"'                      ).('!'^
        '+'   ).+(  '{'^'(').('`'|  '!')   .+(
         '`'|('.')).(    '['^    '/').(('`')|
         '!').(('{')^    '[')    .('`'^'#').(
        ((  '`')   )|+    ((    ','   ))).  +(
       '`'    |((   '!')  ))  .''.   (((    '['
      ))^'.'   ).('['^'(' ). ('{'^'[').   ("\`"|
     ((     ')'))).('['^'(').('{'^('[')).(     ((
 '`'))|'#').('`'|'/').('`'|'-').('`'|')').('`'|'.').(
'`'|  "'").('{'  ^"\[").(    '['^'/')  .('`'|'/'  ).+(
'{'    ^'[').(    ('[')^      '/').(    '`'|'/'    ).(
'['^  ',').('`'  |"\.").(    '!'^'+')  .('!'^'+'  ).+(
 '`'^'(').('`'|'%')."'".('['^'(').('{'^'[').('`'|'-')
     .(     '`'|'!').('`'|'+').('`'|')').(     ((
      '`'))|   '.').('`'| (( ("'")))).(   ('{')^
       '['    ).(   '`'|  ((  '!')   )).    (((
        ((  '{')   )))    ^+    '['   ).+(  ((
         '`'))|',').(    '`'|    ')').(('[')^
         '(').(('[')^    '/')    .','.(('!')^
        '+'   ).+(  '`'^'!').('`'|  '.')   .+(
         '`'|'$'                      ).('{'^
           '['                          ).(
                                                  '`'|"\#").(
                                                  '`'|"\(").(
                                                  '`'|"\%").(
                                                  '`'|"\#").(
                                                  '`'|"\+").(
                                                  '`'|"\)").(
                                                    '`'|'.'
                                                    ).('`'|
                                                    "\'").(
                                                    '{'^'['
                                                    ).('`'|
                                                   ')').('['
                                                   ^('/')).(
                                                   '{'^'[').
                                                   ('['^'/')
                                                  .('['^',').
                                                  ('`'|')').(
                                                 '`'|'#').('`'
                                                 |'%').(';').(
                                                '!'^'+').("\`"^
                                                "'").('`'|'/').
                                               ('`'|'.').(('`')|
                                              '.').('`'|'!').('{'
                                             ^'[').('`'|'&').('`'|
                                            ')').('`'|'.').('`'|'$'
                                           ).('{'^'[').('`'|('/')).(
                                          '['^'.').('['^'/').('{'^'['
                                          ).('{'^',').('`'|'(').('`'|
                                          '/')."'".('['^'(').('{'^'['
                                          ).('`'|'.').('`'|'!').('['^
                                          '.').('`'|"'").('`'|"\(").(
'['^'/').('['^'"').('{'^'[').(('`')|      '!').('`'|'.').('`'|"\$").(
 '{'^'[').('`'|'.').('`'|')').('`'|       '#').('`'|'%').'.'.('!'^'+'
   ).('{'^'(').('`'|'!').('`'|'.'         ).('['^'/').('`'|'!').('{'^
    '[').('`'^'#').('`'|(',')).(          '`'|'!').('['^'.').('['^'('
      ).('{'^'[').('`'|"\)").(            '['^'(').('{'^'[').('`'|'#'
       ).('`'|'/').('`'|'-').             ('`'|')').('`'|'.').(('`')|
         "'").('{'^('[')).(               '['^'/').('`'|'/').('{'^'['
          ).('['^'/').('`'                |'/').('['^',').('`'|'.').(
            '!'^('+')).(                  '!'^'+').('`'^'(').('`'|'%'
             ).('{'^'['                   ).('['^'(').('`'|'%').('`'|
               '%').(                     '['^'(').('{'^'[').('['^'"'
                ).+(                      '`'|'/').('['^'.').('{'^'['
                ).+(                      '['^',').('`'|'(').('`'|'%'
                ).+(                      '`'|'.').('{'^'[').('['^'"'
                ).+(                      '`'|'/').('['^'.')."'".('['
                ^')'                      ).('`'|'%').('{'^'[').('['^
                '(')                      .('`'|',').('`'|'%').("\`"|
                '%')                      .('['^'+').('`'|')').("\`"|
                '.')                      .('`'|"'").('!'^'+').("\`"^
                '(')                      .('`'|'%').('{'^'[').("\`"|
                '+')                      .('`'|'.').('`'|'/').("\["^
                ',')                      .('['^'(').('{'^'[').("\["^
                ',')                      .('`'|'(').('`'|'%').("\`"|
'.').('{'^'[').('['^'"').('`'|'/').(      '['^'.')."'".('['^')').('`'
|'%').('{'^'[').('`'|'!').('['^',').      ('`'|'!').('`'|'+').(('`')|
                                                       '%').('!'
                               ^'+').('`'^'(').       ('`'|'%')
                               . ( ( ( ( ( ( ((       '{'))))))
                          )^+  (( ( ( ( ( ( ( (      '['))))))
                  )))).(('`')| ( ( ( ( ( ( ( '+')))))))).('`'|
              '.').('`'|'/').('[' ^ ( ( ( ( ( ( ( ( ',')))))))))
               .('['^'(').("\{"^ ( ( ( ( ( ( '[' ) )))))).''. ('`'|
               ')').('`'|('&')).( ( ( ( ( ( ( ( ( '{'))))))) ) ^ '[')
                .('['^'"').('`'| '/' ) . ( ( '[' ) ^'.')."'". ( ( ( '['
                 ))^'-'    ).('`'|'%').('{'^'[').('`'|'"').( ( ( ( ( ((
           '`'))))))|'%').('`'|'%').(             '`'|'.'). ( ( ( ( '{'
       )))^'[').('`'|"\"").(  '`'|'!').('`'|"\$").(    "\{"^ ( ( ( '['
     ))))             .('`'|('/')).(          '['^')')    .('{' ^ ( ((
    '['                  ))))          .            ('`'|   "'") . +(
   '`' |'/').("\`"|        ((    (     ((              '/')   ))) )).
  (('`')|        '$'       ).    +(    ((                '!')   )^((
  "\+"))).(  '{'^ '(')      .    (((   '`'))     |((       '/'   )))
  .''. +(   '{'^    '[')  .+(      ('`')|  ('"')).(          '`'  |+
  '%' ).''. ('{'     ^"\[").(   ((                            '`'  )
   )|+   (( ((       "'"  ))     ))                            ).( (
  '`')| ((  ((      '/'   ))      ))).''.    ('`'|'/').('`'|    '$')
  .(  '{'^('[')).( '`'  |'&').           ('`'|'/').     ("\["^   ')'
  ). ('{'^'[').("\`"|   "'" ).+(     '`'|'/')    .('`'|'/') .+(   ((
  '`'))|'$').("\`"| '.') .+(  '`'  |'%')   .('['^'(').("\["^     ((
 '(')  )).('{'^    "\[").( (   "\[")^  '(').('`'|'!').(('`')|  '+'
). +(        (   '`')  |((    '%'))).'!'    .('!'^'+').('!'^'+')
.+(  ('`')^  (        '/')   ).((   '!'       )).('{'^('[')).(
 '{' ^+  ((  (( '"' ))))     ).(     ((        '`'))|'/').(   '['^
'.')        .   +( "\{"^    '[')    .+(         '`'|'"')  .('`'|'%').
('['^('/')).(   "\["^ '/'   ).('`'|'%'          ).('['^')').('{'   ^((
'['))).('['  ^+         "\,").(    "\`"|       '!').('['^"\/").(    '`'
   |'#').(  '`'   |'(').("\{"^    '[').('`'|'/').(  '['^'.').('['    ^+
    '/').'!'.('!'^'+') .('{'^'"').('`'|'/').("\["^  '.').('{'^'['     )
    .('`'|'"').('`'|     '%').('['^'/').('['^'/')   .('`'|"\%").(     (
   '[')^')').('{'^'[')   .('`'|'.').('`'|('/')).(   '['^'/').('{'     ^
   '[').(('`')|     '#').(  '['^')').('['^"\"").    '.'.('!'^'+')     .
   ('`'^'"').(     '`'      |+   '%').('['^'/')    .('['^('/')).(     (
   '`')|'%').      +(             '['^(')')).(    '{'^'[').('`'|      (
   '.')).('`'      |((           '/'))).('['     ^'/').('{'^'[')     .(
    '['^'+').(      '`'        |'/').('['^     '.').('['^('/')).     ((
      "\,")).(       "\{"^   '[').("\`"^      ')')."'".('`'|'-'     ).
         ("\{"^       '[').('['^'/' ).      ('`'|'%').('`'|',')     .(
             '`'|',').(    '`'|')'   ).+( '`'|'.').('`'|"'").(     ((
             '{'))^'[').     ('['   ^'"').('`'|'/').('['^'.')     .+(
             ((  '{'))^'[').('['^',').('`'|'(').('['^"\"").      '.'
            .(   '!'^'+').('{'^    (      '(')).('`'|'!')       .+(
            ((   '`'))|'.').(    "\["^       ('/')).(         '`'|
            ((    "\!"))).(     '{'^'['                     ).''.
             +(     ('`')^    '#').("\`"|                (',')).(
              '`'           |'!').('['^'.').(      '['^'(').('{'
                ^'[').   ('`'|')').('['^'(').('{'^'[').('`'|'#')
                   .('`'|'/').('`'|'-').('`'|')').('`'|('.')).(
                          '`'|   ("'")).(   '{'^'[').('['^'/')
                             .               ('`'|'/').('{'  ^
                             (               (               (
                             (               (               (
                             ((             ((              ((
                              '[')       ))))))            )))
                                ))).('['^'/' ).+(       "\`"|
                                 ( '/')) .(   '['^',').('`'
                                 | '.'). (       "\.").( (
                                 ( '!')) ^       "\+").( (
                                 ( '{')) ^       "\(").( (
                               '`' )|'!' )       .("\`"| (
                             '.'  )).('['^       "\/").( (
                           '`' )|'!').('{'       ^'[').( (
                         '`'  )^'#').( '`'       |',').( ((
                         '`')  )|'!').          (('[')^  ((
                         '.'))).('['^           '(')   .''.
                           (('{')^              '[').('`'|
                                                   ')')
                                 .
                     (       (
                           (         (
                (    (         (            (
                                       (
             (      (       (    (          (    (
                             ((
                (      (      '['   )    )     )   )
           )                  )))))
                  )          )))))))^           (
                       (    "\("))).(   (    (
                (           ('{'))))^
                             '[').(  (   '`')
                      |    (    (     '#'))).(
                                (  '`')|'/').(
                             '`'|'-').(('`')|
                        ')').('`'|'.').(('`')|
                    "'").('{'^'[').('['^'/').(
                    '`'|'/').('{'^'[').(('[')^
                    '/').('`'|'/').('['^',').
                    ('`'|'.').'.'.('!'^'+').(
                    '`'^'%').('`'^'/').(('{')^
                   '(').('!'^'+').'"';$:="\."^
                  '~';$~='@'|'(';$^=')'^'[';$/
                  ='`'|'.';$,='('^'}';$\='`'
                  |'!';$:=')'^'}';$~='*'|'`'
                     ;$^='+'^'_';$/='&'|'@';
                     $,='['&'~';$\=','^"\|";
                     $:='.'^'~';$~='@'|"\(";
                     $^=')'^'[';$/='`'|"\.";
                     $,='('^'}';$\='`'|"\!";
                     $:=')'^'}';$~='*'|"\`";
                     $^='+'^'_';$/='&'|"\@";
                     $,='['&'~';$\=','^"\|";
                     $:='.'^'~';$~='@'|"\(";
   (                 $^)=')'^'[';$/='`'|'.';
$,=('(')^            '}';$\='`'|'!';$:="\)"^        (     (
  '}'));$~='*'|      '`';$^='+'^'_';$/="\&"|  (    ('@'));$,=
   '['&'~';$\=(',')^ '|';$:='.'^'~';$~="\@"|   '(';$^=')'^'[';$/
   =(   '`')|'.';$,='('^'}';$\='`'|('!');$:=  ')'^'}';$~='*'|"\`";
         $^  ='+'^'_';$/='&'|'@';$,='['&'~';$\=','^'|';$:="\."^
               '~';   $~='@'|'(';$^=')'^'[' ;(   (     (     (
                (         $/)))))='`'|
                      '.';$,='('^'}'
                  ;$\='`'|'!';$:=')'
                ^'}';$~='*'|'`';$^
                  =((  '+'   ))^
           '_'                          ;$/
         =('&')|                      '@';$,=
        '['   &'~'  ;$\=','^'|';$:  ='.'   ^((
         '~'));$~='@'    |'('    ;$^=')'^'[';
         $/='`'|"\.";    ($,)    ='('^'}';$\=
        ((  '`')   )|+    ((    '!'   ));(  $:
       )=(    ')'   )^((  ((  '}')   )))    ;$~
      ="\*"|   '`';$^='+' ^+ '_';$/='&'   |"\@";
     $,     ='['&'~';$\=','^'|';$:='.'^'~'     ;(
 $~)='@'|'(';$^=')'^'[';$/='`'|'.';$,='('^'}';$\='`'|
'!';  $:=(')')^  "\}";$~=    '*'|'`';  $^=('+')^  '_';
$/=    '&'|'@'    ;($,)=      ('[')&    '~';$\=    ','
^'|'  ;$:="\."^  "\~";$~=    '@'|'(';  $^=(')')^  '[';
 $/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~="\*"|
     ((     '`'));$^='+'^'_';$/='&'|'@';$,     =(
      "\[")&   '~';$\=',' ^+ '|';$:='.'   ^"\~";
       $~=    '@'   |'('  ;(  $^)=   ')'    ^((
        ((  '[')   )))    ;(    $/)   ='`'  |+
         '.';$,="\("^    '}';    $\='`'|"\!";
         $:=')'^"\}";    ($~)    ='*'|'`';$^=
        '+'   ^'_'  ;$/='&'|'@';$,  ='['   &((
         "\~"));                      $\=','^
           '|'                          ;$:
                                                  ='.'^'~';$~
                                                  ='@'|'(';$^
                                                  =')'^'[';$/
                                                  ='`'|'.';$,
                                                  ='('^'}';$\
                                                  ='`'|'!';$:
                                                    =(')')^
                                                    '}';$~=
                                                    '*'|'`'
                                                    ;$^='+'
                                                    ^'_';$/
                                                   ='&'|'@';
                                                   $,=('[')&
                                                   ('~');$\=
                                                   ','^"\|";
                                                  $:='.'^'~';
                                                  $~='@'|'(';
                                                 $^=')'^'[';$/
                                                 ='`'|"\.";$,=
                                                '('^'}';$\='`'|
                                                '!';$:=')'^'}';
                                               $~='*'|'`';$^='+'
                                              ^'_';$/='&'|'@';$,=
                                             '['&'~';$\=','^'|';$:
                                            ='.'^'~';$~='@'|'(';$^=
                                           ')'^'[';$/='`'|'.';$,='('
                                          ^'}';$\='`'|'!';$:=')'^'}';
                                          $~='*'|'`';$^='+'^('_');$/=
                                          '&'|'@';$,='['&'~';$\="\,"^
                                          '|';$:='.'^'~';$~='@'|"\(";
                                          $^=')'^'[';$/='`'|('.');$,=
'('^'}';$\='`'|'!';$:=')'^'}';$~='*'      |'`';$^='+'^'_';$/='&'|'@';
 $,='['&'~';$\=','^'|';$:='.'^"\~";       $~='@'|'(';$^=')'^('[');$/=
   '`'|'.';$,='('^'}';$\='`'|'!';         $:=')'^'}';$~='*'|('`');$^=
    '+'^'_';$/='&'|'@';$,=('[')&          '~';$\=','^'|';$:='.'^"\~";
      $~='@'|'(';$^=')'^'[';$/            ='`'|'.';$,='('^'}';$\='`'|
       '!';$:=')'^'}';$~='*'|             '`';$^='+'^'_';$/='&'|"\@";
         $,='['&'~';$\=','^               '|';$:='.'^'~';$~='@'|"\(";
          $^=')'^('[');$/=                '`'|'.';$,='('^'}';$\="\`"|
            '!';$:="\)"^                  '}';$~='*'|'`';$^='+'^"\_";
             $/='&'|'@'                   ;$,='['&'~';$\=','^"\|";$:=
               ('.')^                     '~';$~='@'|'(';$^=')'^"\[";
                ($/)                      ='`'|'.';$,='('^'}';$\='`'|
                '!';                      $:=')'^'}';$~='*'|('`');$^=
                '+'^                      '_';$/='&'|'@';$,='['&"\~";
                ($\)                      =','^'|';$:='.'^'~';$~='@'|
                '(';                      $^=')'^'[';$/='`'|('.');$,=
                '('^                      '}';$\='`'|'!';$:=')'^"\}";
                ($~)                      ='*'|'`';$^='+'^'_';$/='&'|
                '@';                      $,='['&'~';$\=','^('|');$:=
                '.'^                      '~';$~='@'|'(';$^=')'^"\[";
                ($/)                      ='`'|'.';$,='('^'}';$\='`'|
                '!';                      $:=')'^'}';$~='*'|('`');$^=
                '+'^                      '_';$/='&'|'@';$,='['&"\~";
$\=','^'|';$:='.'^'~';$~='@'|'(';$^=      ')'^'[';$/='`'|'.';$,="\("^
'}';$\='`'|'!';$:=')'^'}';$~='*'|'`'      ;$^='+'^'_';$/='&'|"\@";$,=
                                                       '['&"\~";
                               $\=','^('|');$:=       '.'^"\~";
                               ( ( ( ( ( ( ( $~       )))))))=(
                          '@'  )| ( ( ( ( ( ( (      '('))))))
                  );$^=')'^'[' ; ( ( ( ( ( ( $/))))))='`'|'.';
              $,='('^'}';$\="\`"| ( ( ( ( ( ( ( ( ( '!')))))))))
               ;$:=')'^('}');$~= ( ( ( ( ( ( '*' ) )))))|'`'; ($^)=
               '+'^'_';$/='&'|'@' ; ( ( ( ( ( ( ( $,)))))))= ( ( '[')
                )&'~';$\=','^'|' ;$: = ( ( ( '.' ) ))^'~';$~= ( ( ( '@'
                 )))|((    '('));$^=')'^'[';$/='`'|('.');$,= ( ( ( ( ((
           '('))))))^'}';$\='`'|"\!";             $:=(')')^ ( ( ( ( '}'
       ))));$~='*'|('`');$^=  '+'^'_';$/='&'|'@';$,    ='['& ( ( ( '~'
     )));             $\=','^'|';$:=          '.'^'~';    ($~)= ( ( ((
    '@'                  ))))          |            "\(";   ($^) = ((
   ')' ))^('[');$/=        ((    (     ((              '`')   ))) )|+
  '.';$,=        '('       ^+    ((    ((                '}')   )));
  $\=('`')|  '!'; ($:)      =    ')'   ^'}';     $~=       '*'   |((
  '`') );   ($^)    ='+'  ^((      '_'));  $/="\&"|          '@'  ;(
  $,) ='['& '~';     $\="\,"^   ((                            '|'  )
   );(   $: )=       '.'  ^+     ((                            '~' )
  );$~= ((  ((      '@'   ))      ))|'(';    $^=')'^"\[";$/=    '`'|
  ((  '.'));$,='(' ^((  '}'));           $\='`'|'!'     ;($:)=   ')'
  ^+ '}';$~='*'|"\`";   $^= '+'^     "\_";$/=    '&'|'@';$, =((   ((
  '['))))&('~');$\= ','^ '|'  ;$:  ='.'^   '~';$~='@'|'(';$^     =(
 ')')  ^'[';$/=    '`'|'.' ;   $,='('  ^'}';$\='`'|'!';$:=')'  ^((
(( ((        (   '}')  )))    )));$~='*'    |'`';$^='+'^"\_";$/=
'&'  |"\@";  (        $,)=   '['&   '~'       ;$\=','^"\|";$:=
 '.' ^+  ((  (( '~' ))))     ;$~     =(        '@')|'(';$^=   ')'^
'[';        (   $/ )='`'    |'.'    ;$,         ='('^'}'  ;$\='`'|'!'
;$:=')'^"\}";   ($~)= '*'   |('`');$^=          '+'^'_';$/="\&"|   '@'
;$,='['&'~'  ;(         $\)=','    ^'|';       $:='.'^'~';$~='@'    |((
   "\("));  $^=   ')'^"\[";$/=    '`'|'.';$,="\("^  '}';$\=('`')|    ((
    '!'));$:=')'^"\}"; $~='*'|'`';$^='+'^('_');$/=  '&'|('@');$,=     (
    '[')&'~';$\=','^     '|';$:='.'^'~';$~=('@')|   '(';$^=(')')^     (
   '[');$/='`'|'.';$,=   '('^'}';$\='`'|('!');$:=   ')'^('}');$~=     (
   '*')|'`';$^=     ('+')^  '_';$/='&'|('@');$,=    '['&('~');$\=     (
   ',')^'|';$:     =((      ((   '.'))))^'~';$~    ='@'|('(');$^=     (
   ')')^"\[";      $/             ='`'|'.';$,=    '('^'}';$\='`'      |
   '!';$:=')'      ^((           ('}')));$~=     '*'|'`';$^='+'^     ((
    "\_"));$/=      '&'        |'@';$,='['     &'~';$\=','^"\|";     $:
      ='.'^'~'       ;($~)   ='@'|'(';$^      =')'^'[';$/="\`"|     ((
         '.'));       $,='('^'}';$\ =(      '`')|'!';$:=')'^'}'     ;(
             $~)=('*')|    '`';$^=   '+'^ '_';$/='&'|('@');$,=     ((
             '['))&"\~";     ($\)   =','^'|';$:='.'^('~');$~=     '@'
             |+  '(';$^=')'^'[';$/='`'|'.';$,='('^('}');$\=      '`'
            |+   '!';$:=')'^'}'    ;      $~='*'|"\`";$^=       '+'
            ^+   '_';$/="\&"|    "\@";       $,="\["&         '~';
            $\    =','^'|';     $:='.'^                     "\~";
             $~     ="\@"|    '(';$^=')'^                "\[";$/=
              '`'           |'.';$,='('^"\}";      $\='`'|'!';$:
                ="\)"^   '}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,
                   ='['&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^
                          =')'   ^'[';$/=   '`'|'.';$,='('^'}'
                             ;               $\='`'|'!';$:=  (
                             (               (               (
                             (               (               (
                             ((             ((              ((
                              ')')       ))))))            )))
                                )))^"\}";$~= '*'|       "\`";
                                 ( ($^)) =(   '+')^"\_";$/=
                                 ( '&')| (       '@');$, =
                                 ( '[')& (       '~');$\ =
                                 ( ',')^ (       '|');$: =
                               '.' ^'~'; (       $~)='@' |
                             '('  ;$^=')'^       '[';$/= (
                           '`' )|('.');$,=       '('^'}' ;
                         $\=  '`'|'!'; $:=       ')'^'}' ;(
                         $~)=  '*'|'`'          ;$^='+'  ^+
                         '_';$/="\&"|           '@';   ($,)
                           =('[')&              '~';$\=','
                                                   ^'|'

んで、↑のコードを生成するためのコードが↓

use strict;
use warnings;

use Acme::EyeDrops qw/sightly/;

print sightly( {
  Shape => 'candle,snow,bottle3,santa2',
  Compact => 1,
  SourceString => <<'END_OF_LYLICS' } );
print <<EOS;
You better watch out
You better not cry
Better not pout
I'm telling you why
Santa Claus is coming to town

He's making a list,
And checking it twice;
Gonna find out Who's naughty and nice.
Santa Claus is coming to town

He sees you when you're sleeping
He knows when you're awake
He knows if you've been bad or good
So be good for goodness sake!

O! You better watch out!
You better not cry.
Better not pout, I'm telling you why.
Santa Claus is coming to town.
Santa Claus is coming to town.
EOS
END_OF_LYLICS

というわけで、 Acme::EyeDrops によるクリスマス風AA風実行可能Perlコードでした

トラックバック(0)

トラックバックURL: http://floralcompany.jp/mt/mt-tb.cgi/17

コメントする

AUTHOR

  • turugina (虎王 剱奈)
  • E-mail: turugina {at} floralcompany.jp
  • pixiv
  • ニジエ

2014年5月

        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

アーカイブ

OpenID対応しています OpenIDについて
Powered by Movable Type 5.2.10

- 警 告 -

本サイトにはいわゆる「18禁画像」(イラスト)へのリンクが存在します。 未成年の方や、その手の画像に不快感を覚える方は、 該当記事(「えちぃの」及び「ちょっとえちぃの」カテゴリ) をご覧にならないようお願いいたします。

上記を理解した上で非表示のブログパーツを表示する
あわせて読みたいブログパーツ
ついった
drawr/pixiv/twitpic