Foro - Perl en Español

por **meme69** » 2006-06-06 23:34 @024

ahora el archivo auxilir tiene 0 no mas
mi archivo alumnos tiene hola Y HOLA como puedo comparar en el archivo, con que con un hash o arreglo COMO puedo asignarle un numero si esta repetido el hola

Código: Seleccionar todo: open(alu , "alumnos.txt"); open(aux ,"+>auxiliar.txt"); while($linea= <alu>) { if ($linea =~/[A-Z]/) { $linea =~s/[AEIOU]/0/; print $linea; print aux "$linea"; } if ($linea =~/[a-z]/) { $linea =~s/[aeiou]/2/; print $linea; print aux "$linea"; } } close(alu); close(aux);

Aquí está otro pero esto está malo porque estoy remplazando dato por dato yo creo

por **explorer** » 2006-06-07 05:35 @274

meme69 escribiste:pregunta como comparo un arreglo de lo que tengo en mi archivo txt

ejemplo si tengo en mi txt hola como comparo con un arreglo

ayudemme

Código: Seleccionar todo: while ( $linea = <FICHERO> ) { @palabras = split(' ', $linea); foreach $p ( @palabras ) { $encontrado = 0; foreach $a ( @array ) { if ( $p eq $a ) { $encontrado = 1; last; } } # Si no la hemos encontrado, la guardamos unless ( $encontrado ) { push @array, $p; } } }

por **meme69** » 2006-06-07 11:25 @518

en el primer foreach recorres el arreglo palabras y si encuentra una palabra repetidas le colocas el 0 O NO
en el segundo foreach recorres otro arreglo y lo guardase en $a
y en el if compara lo encontrado en el variable $p y $a
le asigna un 1 VERDAD

por **meme69** » 2006-06-07 11:37 @525

otra pregunta como lo paso al fichero aux ¿QUE? PRINT AUX ¿QUE?

por **explorer** » 2006-06-07 15:04 @669

meme69 escribiste:en el primer foreach recorres el arreglo palabras y si encuentra una palabra repetidas le colocas el 0 O NO
en el segundo foreach recorres otro arreglo y lo guardase en $a
y en el if compara lo encontrado en el variable $p y $a
le asigna un 1 VERDAD

Lo utilizo para indicar si he encontrado (1) o no (0) la palabra actual en el array de @palabras.

Después, se comprueba el valor de $encontrado para saber si tenemos que agregar la palabra al arreglo o no.

por **explorer** » 2006-06-07 15:06 @671

meme69 escribiste:otra pregunta como lo paso al fichero aux ¿QUE? PRINT AUX ¿QUE?

Si, con eso. El QUE depende de lo que quieras sacar. ¿Lo sabes?

Foro - Perl en Español

Compresor y descompresor de archivos

Publicidad

¿Quién está conectado?