eliminar filas de un fichero

[Raul21]

Hola;

Tengo la siguiente duda a ver si alguine puede ayudarme por favor:

Tengo un fichero de esta forma:

RNC421;NAVB51211;50503;NAVB51211-RIOB51001
RNC421;NAVB51211;51212;NAVB51211-NAVB51212
RNC421;NAVB51212;50503;NAVB51212-RIOB51001
RNC421;NAVB51212;50506;NAVB51212-RIOB51011
RNC421;NAVB51212;50509;NAVB51212-RIOB51021
RNC421;NAVB51212;50510;NAVB51212-RIOB51022
RNC421;NAVB51212;50515;NAVB51212-RIOB51041
RNC132;CLMB87401;52437;CLMB87401-CLMB87403
RNC132;CLMB87402;52437;CLMB87402-CLMB87403
RNC132;CLMB87402;52450;CLMB87402-CLMB30541
RNC132;CLMB87402;52451;CLMB87402-CLMB30542
RNC132;CLMB87403;52435;CLMB87403-CLMB87401
RNC132;CLMB87403;52436;CLMB87403-CLMB87402


El caso es que necesito recorrer cada una de ellas para hacer una comprobacion (grep $variable) en otro fichero, y quiero que esa $variable sea el primer casmpo de cada linea ( RNC421, RNC132..).
El caso es que quiero que comprube ese primer campo una sola vez y no todas las veces que aparezca en el fichero (ya que como se ve aparece en varias lineas por ejemplo RNC421).

Quiero hacer esto porque hay muchas líneas que recorrer y me ralentiza la ejecucion muchisimo.

Gracias

[jferrero]

Si solo quieres ver si existe o no esa cadena, en el fichero, te vale con salir inmediatamente del bucle, en caso de encontrarlo:

Código Perl:

my $lo_encontre;
 
while (<$FICHERO>) {
    if (/^RNC421;/) {
        $lo_encontre = 1;
        last;                        # salimos ¡YA!
    }
}
 
if ($lo_encontre) {
    say '¡Encontrado!';
}
 

Lo principal es la expresión regular, con el '^' puesto, para hacer la consulta lo más rápida posible.

[abcdefghi]

Sería:

Código PHP:

   
if (open(my $handle,'fichero.txt')){ 
 
      #Negar modificación 
       flock $handle, 1; 
 
      #Abrimos y cargamos a memoria 
      open (my $parse, 'acahagoelgrep.txt') or die "$!\n"; 
 
      #Negar modificación 
      flock $parse, 1; 
 
       #Todo a memoria 
       my @todo = <$parse>; 
 
       #cerramos 
       close $parse; 
 
      #Declaro contexto 
      my $last; 
 
      while (<$handle>){ 
               
              #perl sabe que sólo necesita el primer índice, por lo que lo extrae y se detiene, optimizando el tiempo de ejecución.  
              $_ =  (split(';'))[0]; 
 
             #Si anterior es igual a actual, continuo, case sensitive 
              next if $last && $last eq $_; 
 
              #Actualizo variable 
              $last = $_; 
 
               if (scalar grep(/$last/,@todo)){ 
                      print "Lo encontre!!\n"; 
               } 
 
      } 
 
    close $handle; 
 
}