- my $dbh = DBI->connect("DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432"."directorio","directorio","directorio");
- my $sth = $dbh->prepare("SELECT institucion.name, sede.name, ciudad.name, estado.name, pais.name, poder.name, customer_user.first_name,customer_user.last_name,customer_user.id, cargo.name, area.name FROM sede INNER JOIN institucion ON institucion.id=sede.id_institucion JOIN ciudad ON sede.id_ciudad=ciudad.id JOIN estado ON ciudad.id_estado=estado.id JOIN pais ON ciudad.id_pais=pais.id JOIN poder On institucion.poder_id=poder.id JOIN customer_user ON sede.id=customer_user.sede_id JOIN cargo ON cargo.id=customer_user.cargo_id JOIN area ON area.id=customer_user.area_id ORDER BY institucion.id");
- $sth->execute;
- while ( @selec = $sth->fetchrow_array()) {
- push ( @ni,$selec[0]);
- my @ns=$selec[1];
- my @nc=$selec[2];
- my @ne=$selec[3];
- my @np=$selec[4];
- my @npp=$selec[5];
- my @ncus=$selec[6];
- my @acus=$selec[7];
- my @idcus=$selec[8];
- my @na=$selec[9];
- my @nca=$selec[10];
- }
- #print "Da->@ni";
- foreach $ni(@ni){
- if ($ni=~$obj->{busqueda}){
- print "final-->>$ni";
- }
- }
- }
Entonces cuando intento comparar en el foreach(), no me compara... me muestra tooodo el array.
No me está comparando y ya he hecho comparaciones parecidas y sí me compara y aquí no... no entiendo, gracias por la ayuda que me puedan prestar.