• Publicidad

Acme::EyeDrops

Aquí encontrarás todo lo que sea específicamente acerca de módulos de Perl. Ya sea que estás compartiendo tu módulo, un manual o simplemente tienes una duda acerca de alguno.

Acme::EyeDrops

Notapor netsoul » 2009-06-25 19:31 @855

Dejo un ejemplo de lo que se puede hacer con este módulo:
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
   ''=~('(?{'                                      .(('`')|                                                    
   '%')    .''.                                        ('['                                                    
   ^'-'    ).+(      '`'|'!')      .''.    ('`'        |','                          )."\"".(      '['^'+').(  
   '['^    ')')    .''.    ('`'    |')'  ).('`'        |'.'                        ).+(    '['^    '/')    .''.
   ('{'^'[').      '\\'    .'"'    .('{'^              '+')                        .''.    ('`'    |'%'    ).+(
   '['^            ')').(('`')|    ',')                .''.                        ('{'^"\[").(    '`'|    '%')
   .''.            ('`'            |'.'                ).+(                        '{'^            '[')    .''.
   ('`'            |'%'            ).+(                '['^                        '(')            .''.    ('['
   ^'+'              ).("\`"|      '!')            .('`'|'.').(                      '`'|'/')      .''.    ('`'
 
                                                                   |',').      ((                              
                                                                 '\\'  )).+  '\\'                              
                                                                 .(      ('`')|                    '.').''.    
                                                                                                       '\\'    
     .'";'.+(        '!'^"\+").    '"})');$:=        '.'^'~';      $~='@'|'('        ;$^=')'^          '[';    
   ($/)    ='`'    |'.'            ;$,=    '('^            '}';    ($\)    ='`'    |'!'    ;$:=        ')'^    
   '}';    ($~)    ='*'            |'`'    ;$^=            '+'^    '_';    ($/)    ='&'    |'@'        ;$,=    
   '['&"\~";$\=      ','^'|';      ($:)    ='.'      ^('~');$~=    '@'|    '(';    ($^)    =')'        ^'['    
   ;$/=                    '`'|    '.';    ($,)    ='('    ^'}'    ;$\=    '`'|    '!';    ($:)        =')'    
   ^'}'                    ;$~=    '*'|    '`';    ($^)    ='+'    ^'_'    ;$/=    '&'|    '@';        ($,)    
     ='['&'~'      ;$\=(',')^      '|';$:='.'        ^('~');$~=    '@'|    '(';      $^="\)"^      '[';$/="\`"|
                                   '.';                                                                        
                                   ($,)                                                                        
                                   ='('                                                                        
 
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4

La salida es:
Código: Seleccionar todo
Perl en espanol

Nunca pensé que iba a existir este tipo de módulos. :D
With Perl
Imagination is more important than knowledge. Albert Einstein.
netsoul
Perlero nuevo
Perlero nuevo
 
Mensajes: 150
Registrado: 2008-05-04 01:11 @091

Publicidad

Volver a Módulos

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron