Foro - Perl en Español

por **explorer** » 2006-02-20 17:56 @789

Esto no lo he probado, pero debería funcionar...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $cadena = join( '', map { s/\s//g; uc } <CADENA>);
print "Longitud de la cadena ", length( $cadena ), "\n";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El resultado es correcto según el código que pones: hay 5 líneas (excluyendo antes la primera línea).

Pero esto no es lo que me has dicho antes, que querías saber la longitud de la cadena. En el ejemplo que mandas, creo que la salida debería ser 4, pues sólo hay 4 bases.

Esto es lo que me sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use warnings;
use strict;
 
open (my $fichero, '<', $ARGV[0]) or die "No puedo abrir $ARGV[0]: $!\n";
 
## Leemos la primera línea
my $linea1 = <$fichero>;
 
## Indefinimos la variable que indica el separador de registros de entrada
undef $/;
 
## con lo que en la siguiente lectura, leemos todo el fichero de golpe
my $cadena = <$fichero>;
 
## Filtrado de la cadena
$cadena =~ s/\s//g;
$cadena =  uc($cadena);
 
## Salida
print "$cadena - ", length($cadena), "\n";
 
close $fichero;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El resultado de cuatro.pl cuatro.txt es: ATCG - 4.

¿Es eso lo que tiene que salir?

Con un ejemplo terminaremos entendiendo lo que necesitas

por **explorer** » 2006-02-21 13:46 @615

slopal escribiste:Por cierto, si no encontramos la solución no hay problema, os pondré la que ya tenía... a ver si la podemos "optimizar" ya que con ficheros ¿grandes? se me queda como colgado (el explorador dice que no responde)... :S

¿explorador? ¿No se te habrá ocurrido trabajar sobre Windows?

por **slopal** » 2006-02-21 14:06 @629

Vaaaaaaaale, esto es, luego lo paso a "array" (que eso ya me sale) y ya está

MUCHÍSIMAS GRACIAS

P.D.: Ahora tendré que mirar si también falla en ficheros muy grandes, pero ya miraremos esto. :wink:

por **slopal** » 2006-02-21 14:32 @647

¡je,je,je,je! pozí

Se supone que tiene que funcionar en cualquier sistema

De hecho veo que ahora va muchiiiísimo más rápido (para como iba...) De hecho, ¡hasta el tamaño máximo que había probado con IE funciona!

Con Firefox no :S pero pongo los datos en el formulario y hago un send... y al cabo de un rato me sale una ventanita de "I" y si le doy a stop script me devuelve el resultado. :?:

¡je,je! Un poco raro... Al menos veo que lo sigue haciendo, supongo que será problema de configuración del Mozilla (antes me pasaba lo del tiempo con el explorer... (Me lo tendré que mirar esto) y también probarlo en Linuuuuux

por **explorer** » 2006-02-21 14:47 @657

Eso del fallo del Firefox... Me suena a que la página que mandas al navegador... No termina... Por eso se queda esperando...

Dos cosas...

En cuanto arranca tu programa, pon: $|=1; para que toda salida hacia el navegador sea inmediata, sin búfer
Repasa el programa y comprueba que envías una página HTML completa (empieza y acaba en <html>...</html>).

Porque otra causa de que no termine de responder, aparte del hecho de tratar ficheros enormes, es que se meta en algún bucle infinito...

por **kidd** » 2006-02-21 19:00 @833

Hola.

Me parece que pierdes muchos recursos pues abres el archivo, juntas el contenido, luego lo vuelves a dividir en un array. Bien, tu código lo podría optimizar de la siguiente manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Abrimos el archivo
open my $CADENA, '<', 'archivo.txt' or die("No se pudo abrir fichero: $!");
 
    #Tomamos la primera línea
    my $cap = <$CADENA>;
 
    #Filtramos y salvamos en un array el contenido del archivo
    my @cadena = map { filter($_) } <$CADENA>;
 
close $CADENA;
 
 
#El tamaño del array
my $mida_cadena = @cadena;
 
 
#Función de filtrado
sub filter{
 
#Recibimos la entrada
my $entrada = shift;
 
#Eliminamos los espacios
$entrada =~ s/\s//g;
 
#Regresamos la entrada en mayúsculas
return uc($entrada);
 
} #sub filter
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Hice la prueba con un archivo de 30 megas con cerca de 30 000 entradas y me hace todo el proceso en menos de 10 segundos, tengo un sistema Windows.

Saludos

por **slopal** » 2006-02-22 10:34 @481

explorer escribiste:* En cuanto arranca tu programa, pon: $|=1; para que toda salida hacia el navegador sea inmediata, sin búfer.

Esto lo he hecho y sigue igual

explorer escribiste:* Repasa el programa y comprueba que envías una página HTML completa (empieza y acaba en <html>...</html>). Porque otra causa de que no termine de responder, aparte del hecho de tratar ficheros enormes, es que se meta en algún bucle infinito...

Lo haré más a fondo, de hecho mientras va haciendo todo se va registrando en un archivo de log, pero me dice que acaba (la penúltima línea es escribir en el log) y en cambio parece que no llega a hacer el close().

P.D.: Después de esto que os he dicho hace más cosas mi programa, ¡eh! Ya os iré contando

Foro - Perl en Español

Leer fichero menos la primera línea

Re: Leer fichero menos la primera linea

Publicidad

Re: Leer fichero menos la primera línea

Re: Leer fichero menos la primera linea

Re: Leer fichero menos la primera línea

¿Quién está conectado?