Discussion :

[salim81]

Bonjour a tous;
J’ai un fichier texte qui contient des lignes sous la forme suivante :
N°livre
Nom livre
Réf Livre

N°livre
Nom livre
Réf Livre
…..
Dans ma base de données j’ai une table livre (N°livre, Nom livre, Réf livre) déjà rempli. Je cherche un programme perl qui me permet da parcourir mon fichier texte et faire pour chaque N°livre un update des autres champs de ma table.

merci

[Antoun]

Qu'est-ce qui te pose problème exactement ? Ouvrir le fichier texte ?
L'analyser ligne par ligne ? te connecter à la BDD ? écrire les requêtes UPDATE ?

[salim81]

qui me pose problème c'est L'analyser ligne par ligne puis écrire les requêtes UPDATE.

[iblis]

Je cherche un programme perl qui me permet da parcourir mon fichier texte et faire pour chaque N°livre un update des autres champs de ma table.

Bonsoir. Je ne vais pas te donner du tout cuit, juste un petit coup de pouce.

1. Tes enregistrements étant multilignes, tu vas avoir besoin lors d'une lecture ligne par ligne d'une gestion d'état (afin de savoir quand on passe à un nouvel enregistrement). Un moyen très simple est de procéder comme suit :

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   4
   5
   6
   7
   8
   9
   10
   11
   12
   13
   14
   #!/usr/bin/perl
   use strict;
   use warnings;
    
   my @fields = ();
   while (<>) {
       chomp;
       if ($_) {
           push @fields, $_;
           next;
       }
       print join(', ', @fields), "\n";
       @fields = ();
   }

2. Pour te connecter à la base, utilise le module Mysql ou mieux DBI (jette un oeil à la doc sur le CPAN pour plus de détail). Je te donne un exemple type (inspiré de ton problème):

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   4
   5
   6
   7
   8
   9
   10
   11
   12
   13
   14
   15
   16
   17
   use DBI;
    
   my $dbh = DBI->connect('dbi:mysql:yourdatabase:yourhostname', 'yourusername', 'yourpassword')
       or die "Couldn't connect to database: " . DBI->errstr;
   my $sth = $dbh->prepare('SELECT * FROM books')
       or die "Couldn't prepare statement: " . $dbh->errstr;
   $sth->execute()
       or die "Couldn't execute statement: " . $sth->errstr;
    
   while (@data = $sth->fetchrow_array()) {
       my $id = $data[1];
       my $title = $data[2];
       my $reference = $data[3];
       print "\t$id: $title $reference\n";
   }
    
   $db_handle->disconnect();

3. Pour la requête UPDATE (là c'est du SQL pas du perl) quelque chose comme ça :

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   UPDATE books SET 
   title='your new title', reference='blabla' 
   WHERE id='your id';

Bon en fin de compte, c'est plutôt un sacré coup de pouce, non ?

Il ne te reste plus qu'à poster tes essais et questions.