De l'aide pour vos programmes et scripts en Perl

Re: parcourir un fichier

Réponse à: Re: parcourir un fichier envoi de vivi le 14 Mars 2006 14:23:28:

je verrai plutot quelque chose du style

open(F,"/home/seq_repet/seq_repet_PV.txt";) ||die ";Erreur d'ouverture de F"; ;
my @fichier = ;
close F;

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) {
# formatage des données
$ligne = "$ligne[0] $ligne[1] $ligne[2]";

foreach $modele (@fichier){
if ($modele eq $ligne){print "sequence identique\n";}
else {print "deux sequences differentes\n";}
}
print "$ligne\n";
}
$sth->finish;
$sth->disconnect;

Alerter Rezoweb si ce message est illégal