inserer contenu fichier dans une BD

inserer contenu fichier dans une BD - Perl - Programmation

Marsh Posté le 19-07-2006 à 10:56:43    

bonjour!
j'ai un fichier texte sous cette forme:
 
champ1:aaaa
champ2:bbbb
champ3:cccc
champ1:dddd
champ2:jjjjj
champ3:tttt
 
je cherche un script perl qui me permet d'inserer le contenu de mon fichier dans une table de ma base de donnees Mysql.
svp si quelqu'un a une idéé merci de me repondre.
cordialement.

Reply

Marsh Posté le 19-07-2006 à 10:56:43   

Reply

Marsh Posté le 19-07-2006 à 11:07:27    

Spas plus simple d'utiliser un bcp-like ?

Reply

Marsh Posté le 19-07-2006 à 11:17:12    

Voir de faire un "LOAD DATA ... INTO TABLE"???
 
Si tu tiens absolument à faire un script, spas très compliqué non plus, un truc dans le genre doit faire l'affaire:

Code :
  1. #!/usr/bin/perl
  2. use strict;
  3. open(F, "<fichier.txt" );
  4. my @fields;
  5. my @values;
  6. while(<F> ){
  7.   /^(.*?):(.*?)$/;
  8.   push @fields, $1;
  9.   push @values, $2;
  10. }
  11. close(F);
  12. my $sql = "insert into tatable (".join(',',@fields)." ) values (".join(',',@values)." )";


mais attention aux contrôles sur les champs (par exemple les quotes pour des char/varchar, etc)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed