Foro - Perl en Español

Publicado: **2016-08-31 05:47 @282**

¡Muy buenas! Soy nuevo en el foro, aunque llevo un tiempo leyendo respuestas para resolver alguna duda puntual que me haya podido surgir. Llevo muy poco tiempo programando en Perl y mi base de programación tampoco es demasiado potente.

Necesito guardar el string entero que está imprimiendo (necesito que imprima también) para poderlo recuperar más adelante.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        
if ( @lines1 eq @lines2 ) {
 
    for ( $i = 0; $i < @lines1; $i++ ) {
 
        my @var1 = split( /\s+/, $lines1[$i] );
        my @var2 = split( /\s+/, $lines2[$i] );
 
        if ( $var1[ $_[0] ] eq $var2[ $_[0] ] ) {
            print "Line #" . ( $i + 1 ) . " is equal in both documents\n";
        }
 
        else {                                 #NECESITO GUARDAR ESTOS DOS PRINTS PARA PODERLOS MANIPULAR POSTERIORMENTE
            print "\nLine #" . ( $i + 1 ) . " is different between documents\n";
            print "This is the value from file 1: '"
                . $var1[ $_[0] ]
                . "' and this is the value from file 2: '"
                . $var2[ $_[0] ] . "'\n\n";
        }
    }
}
else {                                         #NECESITO GUARDAR ESTOS 3 PRINTS PARA PODERLOS MANIPULAR POSTERIORMENTE
    print "The number of lines in each file do not match.\n";
    print "\n\nTotal number of lines in file 1: " . @lines1 . "\n";
    print "Total number of lines in file 2: " . @lines2 . "\n\n";
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Espero haber creado el mensaje de forma correcta, ¡¡es mi primera vez!!
¡Un saludo y muchas gracias de antemano!

Publicado: **2016-08-31 15:08 @672**

Bienvenido a los foros de Perl en Español, Arianss90.

Un detalle antes. En la línea 2 estás haciendo una comparación alfanumérica entre los dos números resultantes de las cantidades de elementos de los array @lines1 y @lines2. En este caso, es mejor usar el comparador numérico '=='.

Lo que puedes hacer es guardar el valor de $var1[ $_[0] ] en un array, y lo mismo para $var2[ $_[0] ]. Algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

            push @lineas_distintas_1, $var1[ $_[0] ];
            push @lineas_distintas_2, $var2[ $_[0] ];
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Luego, con otro bucle, puedes recorrerles, igual que haces con @lines1.

Publicado: **2016-09-02 05:20 @263**

Entiendo, ¡así lo haré! Gracias por la ayuda, un saludo.

Foro - Perl en Español

Redirigir la salida de print a un array

Redirigir la salida de print a un array

Re: Redirigir la salida de print a un array

Re: Redirigir la salida de print a un array