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