Foro - Perl en Español

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);

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;
        }
    }
}


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

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