Foro - Perl en Español

por **bartg01** » 2007-11-30 06:34 @315

Mi script encuentra el número de ocurrencias de una palabra en un archivo de texto, pero a la hora de mostrarme dónde se encuentran no consigo que asigne su index a cada ocurrencia, sino que me aparece el mismo index para todas ellas.

¿Podría alguien ayudarme?

formy$claves(@claves){
my@coord=();
my$cuantos=0;
my$i=0;
for($seqst=~m/$claves/ig){
$cuantos++;
for$i($cuantos){
my$pos=index($seqst,$claves);
my$long=length($claves);
my$posi=$pos+1;
my$longi=$posi+$long;
my$coord="($posi - $longi)";
push(@coord,$coord);
}
}

if($seqst=~m/$claves/i){
print RESULT "$claves:$cuantos @coord\n";
}
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2007-11-30 15:11 @674

Hay demasiado código para hacer eso...

Esto es muy raro: for $i ($cuantos) {: estás haciendo un bucle por un solo número. Otra cosa: ¿para qué sirve la variable $i?. Haces dos veces la comprobación con la misma expresión regular, y veo que la segunda no se debería ejecutar nunca, pues todas habrán sido capturadas en la expresión regular del for. Otra cosa: no hay que usar for con una expresión regular. Es mejor usar while.

por **bartg01** » 2007-11-30 15:14 @676

Gracias por la respuesta pero ya lo he solucionado, introduciendo una ventana con substr.

por **explorer** » 2007-11-30 16:14 @718

Aquí está mi solución:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

formy$clave(@claves){
my@coordenadas;

while($texto=~m/$clave/ig){

my$lugar= 1 +pos$texto;
my$largo=length$clave;

push@coordenadas,'('.$lugar.' - '.($lugar+length($clave)).')';
}

if(@coordenadas){
print"$clave:",scalar@coordenadas," @coordenadas\n";
}
}Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

por **bartg01** » 2007-11-30 16:20 @722

¿Existe una función pos() en Perl?

Yo lo he conseguido hacer con index y substr, aunque si realmente funciona para varias palabras es mucho mas sencillo.

Ahora no tengo tiempo para redactar el script. Si te parece te lo cuelgo mañana aquí para que puedas opinar, que ahora ando pillado de tiempo y tengo que salir volando.

ok, :-)

por **bartg01** » 2007-11-30 16:30 @729

Me da no sé qué dejarte con la intriga ;-)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

formy$claves(@claves){
my@coord=();
my$cuantos=0;
my$posf=0;
for($seqst=~m/$claves/ig){

my$ventana=substr($seqst,$posf);
my$seqstc=length($seqst);
my$cadenac=length($ventana);
my$cortado=$seqstc-$cadenac;


if($ventana=~/$claves/i){
my$long=length($claves);
my$pos=index($ventana,$claves);
my$posi=$pos+$cortado;
$posf=$pos+$long+$cortado;
my$coord="($posi pb - $posf pb)";
push(@coord,$coord);
}

$cuantos++;

}
if($seqst=~m/$claves/i){
print RESULT "$claves:$cuantos @coord\n";
}
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es un poco caos pero es lo único que se me ha ocurrido.

por **explorer** » 2007-11-30 17:49 @784

pos() devuelve la posición donde se encontró la $clave dentro del $texto (la posición donde se encontró en la expresión regular).

No es comparable a index(), que es para buscar una cadena dentro de otra.

Foro - Perl en Español

Indexar todas las palabras encontradas en un texto

Indexar todas las palabras encontradas en un texto

Publicidad

¿Quién está conectado?