Foro - Perl en Español

por **BigBear** » 2012-09-29 19:53 @870

Tengo el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $a = " 
      11      
      11      
    11  11    
    11  11    
  00      00  
  00      00  
  0000000000  
00          00
00          00
 
";
 
my $b = "
  11111111  
  11      11
  11      11
  11      11
  00000000  
  00      00
  00      00
  00      00
  00000000  
 
";
 
my $c = "
    11111111  
  11        11
  11          
  11          
  00          
  00          
  00          
  00        00
    00000000  
 
";
 
 
chomp $a;
chomp $b;
chomp $c;
 
print $a.$b.$c;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Mi plan es que se junten una al lado de la otra al estilo "a b c" pero no sé cómo se puede hacer eso. ¿Alguien me podría decir cómo sería posible?

#!/usr/bin/perl -w
 
 use feature 'say';
    my $a = "
         11              11111111       111111111
         11             11      11     11       11
       11  11           11      11     11          
       11  11           11      11     00
     00      00          00000000      00
     00      00         00      00     00
     0000000000         00      00     00
    00         00       00      00     00       00
    00         00        00000000        0000000
    ";
 
say $a; 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora, si los quieres tratar independientemente, no se me ocurre cómo conseguirlo porque no dejan de tratarse de strings; por ende por más que le quites la nueva línea con chomp, ¡¡¡la próxima variable se imprimirá seguidamente de la última!!!

por **explorer** » 2012-10-01 11:16 @511

Pero si el problema es sencillo... solo hay que pensar un poco... (por eso no he respondido).

por **MARKO** » 2012-10-01 12:13 @550

Cada letra está formada por líneas, lo que se me ocurre es que concatenes todas las líneas de cada letra respectivamente (todas las primeras, todas las segundas, todas las terceras.......) en un vector y luego imprimas ese vector.

Para eso después de los chomp que escribiste, escribes lo siguiente.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 
my @arreglo=($a,$b,$c); 
my @impresion;
 
foreach(@arreglo){                         #recorres cada una de las letras
        my @renglones = split('\\n', $_);  #en @renglones se meten cada una de las líneas que forman la letra en cuestión
        for my $numlinea (0..9){                #primeras con primeras, segundas con segundas.......             
                $impresion[$numlinea]=$impresion[$numlinea]."   ".$renglones[$numlinea];
        }
}       
foreach(@impresion){
print "$_\n";             #imprimimos cada una de las lineas de nuestro "TEXTO"
}       
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Éxitos.

por **BigBear** » 2012-10-01 12:16 @553

Gracias por la ayuda, reLlene, pero no es eso lo que quiero lograr. Es que no sé expresarme bien, mejor lo dejo así y cambio de tema.

Viendo tu código

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    #!/usr/bin/perl -w
     
     use feature 'say';
        my $a = "
            11              11111111       111111111
            11             11      11     11       11
          11  11           11      11     11          
          11  11           11      11     00
        00      00          00000000      00
        00      00         00      00     00
        0000000000         00      00     00
       00         00       00      00     00       00
       00         00        00000000        0000000
       ";
     
    say $a;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Habría alguna forma de dividir la variable $a para tener cada letra en una variable separada? La pregunta es hacerlo desde la variable no haciendo manualmente como lo hice yo.

PD : genial MARKO eso si es lo que queria lograr

por **explorer** » 2012-10-01 14:46 @657

Esta es mi versión:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/env perl
use v5.14;
use List::Util 'max';
 
my $texto = 'aacbcb';                           # Texto de prueba
 
my %letras = (
    a => " 
    1111     
  111  111   
111      111 
11        11 
000000000000
00        00
00        00
00        00
00        00
 
",
 
    b => "
1111111111
11        11
11        11
11        11
0000000000
00        00
00        00
00        00
0000000000
 
",
 
    c => "
  11111111  
11        11
11          
11          
00          
00          
00          
00        00
  00000000  
 
",
);
my $fondo = '.';                                # Fondo de las letras
my $kerng = 1;                                  # Espacio entre letras
 
## Análisis de la fuente de letras
my($ancho_letras, $alto_letras);
{
    my $letra_tipo = $letras{'a'};
    my @lineas = split /\n/, $letra_tipo;
    $alto_letras  = @lineas + 1;
    $ancho_letras = max map { length $_ } @lineas;
    say "Letras: [$ancho_letras x $alto_letras]";
}
 
## Creación del escritorio
my @escritorio;
for (1 .. $alto_letras) {
    push @escritorio, $fondo x (($ancho_letras + $kerng) * length $texto);
}
 
## Escritura
my $cursor = 0;                                 # El cursor está a la izquierda
 
for my $letra (split //, $texto) {                              # Por cada letra...
    my @lineas = split /\n/, $letras{$letra};                   # Extraemos su composición
 
    for my $j (0 .. $alto_letras-1) {                           # Para cada línea...
        my $linea = $lineas[$j] =~ s/ /$fondo/gr;               # Le cambiamos el fondo de letra
 
        $linea = $fondo x $ancho_letras if not $linea;          # Caso de línea en blanco
 
        substr($escritorio[$j], $cursor, length $linea) = $linea;       # Pintamos
    }
 
    $cursor += $ancho_letras + $kerng;                          # Movemos el cursor
}
 
## Presentación
say join "\n", @escritorio;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Sale

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

explorer@dv9700 ~/Documents/Desarrollo $ perl code_32486.pl

Letras: [13 x 11]

....................................................................................

....1111..........1111........11111111....1111111111......11111111....1111111111....

..111..111......111..111....11........11..11........11..11........11..11........11..

111......111..111......111..11............11........11..11............11........11..

11........11..11........11..11............11........11..11............11........11..

000000000000..000000000000..00............0000000000....00............0000000000....

00........00..00........00..00............00........00..00............00........00..

00........00..00........00..00............00........00..00............00........00..

00........00..00........00..00........00..00........00..00........00..00........00..

00........00..00........00....00000000....0000000000......00000000....0000000000....

....................................................................................Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2012-10-01 16:47 @741

explorer, intenté usar tu script y me tira este error.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Bareword found where operator expected at D:\Mis documentos NO BORRAR\Desktop\Le

viatan\Hacking\Warfactory VI\perl\ART\art.pl line 73, near "s/ /$fondo/gr"

syntax error at D:\Mis documentos NO BORRAR\Desktop\Leviatan\Hacking\Warfactory

VI\perl\ART\art.pl line 73, near "s/ /$fondo/gr"

Execution of D:\Mis documentos NO BORRAR\Desktop\Leviatan\Hacking\Warfactory VI\

perl\ART\art.pl aborted due to compilation errors.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

PD : intenté instalando 5.12, como vos, pero el problema es siempre el mismo.

por **explorer** » 2012-10-01 17:15 @760

Estoy usando una nueva característica de Perl v5.14.

Instálate siempre la última versión estable de Perl.

En este momento, la v5.16.1.

O lo cambias por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        (my $linea = $lineas[$j]) =~ s/ /$fondo/g;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **BigBear** » 2012-10-01 17:39 @777

Realicé la modificación que sugeriste y el error cambió a

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Can't declare scalar assignment in "my" at D:\Mis documentos NO BORRAR\Desktop\L

eviatan\Hacking\Warfactory VI\perl\ART\art.pl line 74, near ") =~"

Execution of D:\Mis documentos NO BORRAR\Desktop\Leviatan\Hacking\Warfactory VI\

perl\ART\art.pl aborted due to compilation errors.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

P.d.: Instalé el 5.14 y tira, pero tengo un problema: no encuentro crack para el perl2exe de esta versión de Perl y necesito pasarlo a exe. Te quería preguntar cómo modifico tu script para evitar este error con el tema del fondo, arreglarlo o suprimir la opción del fondo que da problemas.

por **explorer** » 2012-10-01 17:46 @782

Ag... puse mal el primer paréntesis...

Ya está arreglado.

Foro - Perl en Español

Juntar letras

Juntar letras

Publicidad

Re: Juntar letras

Re: Juntar letras

Re: Juntar letras

Re: Juntar letras

Re: Juntar letras

Re: Juntar letras

Re: Juntar letras

Re: Juntar letras

Re: Juntar letras

¿Quién está conectado?