De l'aide pour vos programmes et scripts en Perl

Re: parcourir un fichier

Réponse à: parcourir un fichier envoi de vivi le 13 Mars 2006 16:31:48:

salut à tous,
j'arrive a parcourir les lignes de mon fichier que je met dans la variable $_
Je me connecte aussi à la base des donnes et j'extrait mes lignes dans un tableau ,que je parcourt avec la boucle foreach
Mais je n'arrive pas comparer chaque ligne du fichier avec les lignes du tableau pour ressortir les donées identiques.

open(F,"/home/seq_repet/seq_repet_PV.txt") ||die "Erreur d'ouverture de F" ;
while () {
print "la ligne $_ a ete lue\n";

my $dbh = DBI->connect("dbi:Pg:host=147.99.218.89;dbname=", "", "")
or die "Impossible de se connecter à la base de données : $DBI::errstr\n";

my $requete = "SELECT seq_nucleic FROM EST WHERE public=true AND valid =true GROUP BY seq_nucleic HAVING COUNT(*) >=2 ";
my $sth = $dbh->prepare($requete);
$sth->execute();
while(my @lignes = $sth-> fetchrow_array) {
#print $lignes[0] ,$lignes [1];
foreach(@lignes){
if ( $_ eq my $lignes){
print "sequence identique\n"; }
else {print "deux sequences differentes\n";}

print "$_\n";
}
}

$sth->finish;
$sth->disconnect;
$i++ ;
}
close F;

merci pour votre aide

Alerter Rezoweb si ce message est illégal