Foro - Perl en Español

por **jacks** » 2012-02-13 16:39 @735

Hola, me gustaría saber si alguien podría ayudarme con esta duda. Resulta que cuando quiero eliminar un patrón, no lo hace, y no sé por qué. Como se puede apreciar en la imagen, encuentra el patrón en la base de datos, pero dice que no son iguales

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub comparar{
 
      printf ("Estoy aquí.\n");
 
      my($tabla,$patron,$conexion)=@_;                        
 
      print "La tabla es:  ",$tabla,"\n";
 
      my $sth = $conexion->prepare("SELECT * FROM $tabla");       
 
      $sth->execute(); 
                                  
      my $encontrada= 0;                                    
      
      $patron=~ s/^\s+//;
 
        while (my $ref = $sth->fetchrow_hashref() and  $encontrada==0) {   
 
                print "Patron en la bd: ",$ref->{'patron'},"\n";
                print "Patron varibale: ",$patron,"\n";
 
                if  ( $patron eq $ref->{'patron'}){       
 
                        printf("$ref->{'patron'}\n");
                        printf("$link\n");
 
                      $encontrada = 1;
                }
        }
 
        $sth->finish();
        
        print "Encontrado: ",$encontrada,"\n";
 
        return $encontrada;                     
}
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Lo único que hemos hecho es poner unos corchetes, para que nos delimiten exactamente los valores.

¡Ah!, y para que salgan los caracteres acentuados de forma correcta en la terminal de comandos de Windows, debes poner un
binmode(STDOUT, ":encoding(cp850)");

al principio del programa. (Bueno, no recuerdo si era cp850 o cp852).

Foro - Perl en Español

Comparar cadena de string

Comparar cadena de string

Publicidad

Re: Comparar cadena de string

¿Quién está conectado?