• Publicidad

Ayuda para imprimir imagen en ASCII

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Ayuda para imprimir imagen en ASCII

Notapor BigBear » 2011-06-02 15:37 @692

Hola.

Tengo una imagen ASCII que me gustaría mostrar en pantalla; la imagen tiene caracteres como

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
h$($(4R$/*)400hhh6$+/+R00#R36
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


El problema es que Perl siempre me tira errores. He intentado usando qq() pero
siempre tira error. Mi duda es si no hay alguna forma de mostrar en pantalla ignorando
esos caracteres.
Última edición por explorer el 2011-06-02 17:29 @770, editado 1 vez en total
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Re: Ayuda para imprimir imagen en ASCII

Notapor explorer » 2011-06-02 17:26 @768

Si quieres que la salida sea exacta, debes usar q() (que equivale a las comillas simples).
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Ayuda para imprimir imagen en ASCII

Notapor BigBear » 2011-06-02 17:33 @773

Gracias por la respuesta, explorer, pero aun así tira errores. No hay otra forma, recuerdo una usando eof() pero no acuerdo cómo se usaba.
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Ayuda para imprimir imagen en ASCII

Notapor explorer » 2011-06-02 18:32 @814

Pero... ¿¿qué errores??
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Ayuda para imprimir imagen en ASCII

Notapor BigBear » 2011-06-02 18:41 @820

Perdón por tanto misterio. La imagen ASCII es en realidad esta
Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
print q(

                                                                         
                                                                                 
                                  `    `    `    `                                
                                  `     `` `                                      
                                  `  `````  ``` ` `                              
                                 `  ` ``¨¨  ` ```¨                                
                                 `  ` '`   " ``                                  
                            `  ` `%h(1!_!!_*31  ¨     `  `                        
                          `  `  ¾R/"  `   ¨ '"3% ¨ `  ¨ ¨                        
                          `` ¾3__`'``  `   `    !)1¨` `  `                        
                         `` ¾+;_'¨'  ' ````  `¨ "_+1` '                          
                        ``1)T!T_!"';` '`    ¨  ¨`__i% `¨ `                        
                        ` 6T*1;i;!!_  ````` `¨'¨`"_TR¨  ¨                        
                         d+11/*iTi!_""_____!__!_""i/+1                            
                         R+)+/111TT_;!________!__;i1)#`                          
                         4))++/+/TT_!__!!!'______!i13R  `                        
                         R3))33())*;_!!;ii_!_____;1/34                            
                         6()3(3$()i;_iT*//*T;;ii*)+/)4`` `                        
                         h$($(4R$/*)400hhh6$+/+R00#R36                            
                         #(($)$$#34hdd%0%%hR(+$00%%d#6                            
                         d((($4$3$%%000%66+i'`+d0%h%1#`  `                        
                         ¾334(3R))h%d%%1((1!  *0%d%dh#                            
                         `4$)344);`;3*T¨''i;)#R(4R(+*R  `                        
                        ` ¾$+1+)+;" `` ¨__*)d0%41*i'"R ` `                        
                          ¨64(+1T*(R06#6$$(d%h¾36hh%$+¾  `                        
                          `1$$6#R66hhR3+!!*d/0;/4Rh6R¾   `                        
                          ` h4d(%1d¾h4(*ii"i`T`*R#d¾¾  `                          
                ``      `  ¨ `16)Rh`d46)TTTTT+)36d¾ `  `    ````  `              
         `  '   ¨` ` ` ` ``  ` h))$1dR6h###(4(R#%h¾` ¨  ¨  ¨`   ` ```            
        ` `  ""*""(0 `` ``    ¨6();¨**$)33(/3*3$+(```  `` ` ¾dd1`                
            `##¨  `"0   `` ``` #+3* '/*///11/*+3)( ```    10T¨'1d                
          `` **¨ `¨ ih  `  ¨ ` `16)1T!/3$$R)$$(#(6    `  `d; `  T¨````            
             44__¨'""$¾` `` ` `` 1h4/3+4((Rh40#4Rh ¨` ¨ `13`   `;#                
         `  %**Ti/iiT'1h` ¨¨  `  `¨%03**;;i_;*)36 `  ' ` 4` ¨"i*Td`  `  `        
           h(TT!*11_i_"i"61¨    ````` ¾0RR$6#dR¾    ` `6`¨ _"i1//#   `   ¨        
          ¾$$//*+1/*ii_`;_+0`¨¨   `   ` ¾¾¾¾11`  ¨ ¨`¾h!` '_!1*/$R¾``            
         '  ¾%%0%h06h4*/*"_""+d¨      ``   ``¨ `` %d3/;';T//)4400¾   `   ¨        
        ` ` `¾¾110¾dd#h3//!_"')0¾`` ``  `` ¨ `¨  ¾#31T"1/46#d%¾%'  ¨¨  ¨          
                `   `  1ddhR)1;!341%   ¨  `  `¾4)+T_*(#d¾      ```                
                 ` `   " ¾¾h#63++3$d¾` `    1h++T_*3$d% ¨        `                
                  ` ` ``¨ `  ¾1dh#44R46%¾¾(i ``i)h% ¨`  `                        
                       ¨  `  ` ¾1h%#$$(1**'  i/R%1  ``  ¨                        
                   ¨`      `  ` `` %(` ¨¨¨T+h%¾`¨  `  ``                          
                  `    ```¨` ¨ ` 1$" `¨*++hdh%hd1 ```   ¨                        
         ¨       ` `  ``     10*  '_/46¾¾¾¾h¾$43T)60Rh   ¨ `¾#40`                
         ` ` 0033¾ ¨   %1  '` ''T/#1¾  ```  `1¾144*!!;'¨;""¨``' "d                
        ` `¾$   ";dh10)T¨¨`  '!)40¾1  ` ```¨  %116(3;i_"`¨`   `¨+4                
          ¨+!  `!;;"¨¨ ¨';1)6#¾% `  ``    `    ` 1h#$)i!;!_";**3h                
         ' 3TTT"*+T!"___TT$40d¾ ¨ `` `` ``  ` ¨  `11431*i;_*1$0d¾`                
          `¾h666hh3)*T//+)hd¨` `          `         ¾0R)+()#¾  ` ¨`              
          ¨ ¾¾¾h%dd(/TT))#¾    `                  ` `dhR4h1%`` ` `                
         ` `   ¨ ¾d03($#d¨ ` ¨  `                 ` ¨``¾%1  ` `¨                  
         ``    `  dh#0¾01  `                       ```  `¨     ` ¨                
         `  `   ` ¨  `  `  ``  `                    ` ` `  `   ``                
                         ```                      `````````                      
                                                                                 
                                   
);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Ayuda para imprimir imagen en ASCII

Notapor ileiva » 2011-06-03 00:53 @078

Hola,

Agrega antes de la "imagen":
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. print << 'EOI';
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

Agrega después de la "imagen":
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. EOI
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
.

Lo que hace es mostrar por pantalla todo lo que esté entre ambas instrucciones. Ojo con las comillas simples, ya que señalan que el contenido no debe ser interpolado.

Nota: Debes quitar el print q(); que estás usando ahora.

Saludos.
Avatar de Usuario
ileiva
Perlero nuevo
Perlero nuevo
 
Mensajes: 30
Registrado: 2011-04-23 03:25 @184
Ubicación: Santiago, Chile

Re: Ayuda para imprimir imagen en ASCII

Notapor explorer » 2011-06-03 05:22 @265

El error estaba en que hay un ')' en mitad del gráfico, por lo que Perl pensaba que era el paréntesis final de q().

Entonces, lo que hay que hacer es buscar otro carácter que no esté en el gráfico. En este caso, veo que no hay ningún '|', así que puedes escribirlo así;

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. print q|
  2.     aqui
  3.         va
  4.            el
  5.               gráfico
  6. |;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Ayuda para imprimir imagen en ASCII

Notapor BigBear » 2011-06-03 12:40 @569

Gracias a los dos por la ayuda, aunque la solución más sencilla es la de explorer.
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Ayuda para imprimir imagen en ASCII

Notapor explorer » 2011-06-03 13:29 @603

Pero no es la más segura... porque cuando cambies de gráfico, sí que es posible que aparezca un carácter '|'.

La solución de ileiva es la mejor.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

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

cron