Foro - Perl en Español

por **slopal** » 2006-04-25 11:45 @531

Hola.

Necesito transformar la función

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @loc2_cadena = split //, $cadena;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

en un bucle donde pueda hacer print()... entre medio... de esta manera aunque sea muyyyy larga la cadena, el explorador no me da error de timeout por no escribir nada en la pantalla (el típico mensaje de Loading...).

Seguro que hay una manera muy fácil pero yo estoy un poco espesa...

Hola:

Lo primero que tienes que hacer es quitar el búfer de STDOUT:

$|++;

Lo que sucede es que Perl espera a que el búfer llegue a cierto tamaño para desplegarlo, al poner la línea anterior Perl deja de hacer eso y despliega la salida inmediatamente.

Ahora, hacer el split() en bucle es muy fácil y sigue una simple lógica, si ves estás asignando el resultado del split() a un array, por lo que podemos deducir que el resultado del split() es un array, entonces:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
$|++;
 
my @loc2_cadena;
 
for my $line ( split //, $cadena ) {
    print "$line\n";
    push( @loc2_cadena, $line );
}
 
exit(1);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Toma en cuenta que por hacer el print() y después el push() el script se puede hacer mucho más lento, pero te permite desplegar línea por línea el resultado, permitiendo al usuario ver lo que está pasando.

Saludos

por **explorer** » 2006-04-25 15:30 @687

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#### Conversión de cadena de caracteres a array
my @loc2_cadena;
{
    local $| = 1;                                           # ¡No búfer de salida!
    local $\ = "<br>\n";                                    # Terminación de las líneas
 
    ### Barra de actividad
    ## Pintamos un '>' cada cierto tiempo
    ## para que el usuario no se aburra
    my $puntos_ancho = 100;                                 # Ancho de la barra
    my $puntos_largo = length $cadena;                      # Cantidad de información
    my $puntos_paso  = int( $puntos_largo / $puntos_ancho );# Cada cuánto tenemos que pintar
 
    # Informamos de lo que va a pasar
    print 'Procesando cadena. Espere, por favor...';
    print '+', '-' x $puntos_ancho, '+';
 
    # Bucle
    {
        local $\ = "";
        print '+';
        for ( my $i = 0; $i < $puntos_largo; $i++ ) {
 
            push @loc2_cadena, substr($cadena,$i,1);
 
            print '>' if ( $i % $puntos_paso ) == 0;
        }
    }
 
    print '+';
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que estamos haciendo es calcular cada cuánto tiempo queremos pintar un '>', de tal forma que al final tenemos una barra de progreso (o de actividad) y el usuario sabe más o menos cuánto le queda para terminar.

Naturalmente, el procesado de la cadena se puede optimizar mucho más, por ejemplo (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for ( my $i = 0; $i < $puntos_largo; $i += $puntos_paso ) {
 
    push @loc2_cadena, split //, substr( $cadena, $i, $puntos_paso );
 
    print '>';
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Aquí, en vez de procesar un carácter cada vez, procesamos conjuntos de caracteres (substr), que son separados (split) e introducidos (push) en el array.

Los conjuntos de caracteres tienen un tamaño adecuado a la longitud de la barra de progreso; por eso luego hacemos un simple print() del carácter y no como antes, que era cada cierto número de caracteres procesados.

por **slopal** » 2006-04-26 10:37 @484

¡Hola muchas gracias a los dos!

Una pregunta, ¿qué diferencia hay entre $|++ o $| = 1 ?

Yo al principio del CGI ya tengo puesto el $| = 1, porque me lo recomendó explorer en otra ocasión, para que hiciera print() sin búfer.

¿Es lo mismo? (suponiendo que por defecto $| será igual a 0).

por **explorer** » 2006-04-26 10:49 @492

$| está puesto por defecto a 0 (ver perlvar).

Tanto una opción como la otra lo ponen a un valor distinto de 0.

Foro - Perl en Español

Transformar la función split en un bucle

Transformar la función split en un bucle

Publicidad

¿Quién está conectado?