j'ai un script en perl sur un serveur unix et voici ce qu'il fait:
il se connecte à une base mysql qui se trouve sur un autre serveur (windows) pour y inclure des infos:
j'ai déclarer un user et un mot de passe pour que la connection puisse se faire (avec tous les privilèges en Yes), malheureusement je ne peux tester mon script sous unix car il se lance uniquement via un ordonnanceur qui appelle plusieurs scripts à la suite. Ai-je éventuellement d'autres paramètres à modifier dans la base données?
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
18
19
20
21
22
23 # script modifié par A.ROUSSEL le 16 05 2008 use Strict; use DBI; my $db = 'DBI:mysql:essai:xxxx'; my $user = 'xxxxxx'; my $pass = 'xx'; my $dbh = DBI->connect($db, $user, $pass) or die "connexion impossible"; use POSIX qw(strftime); my $Time = strftime "%Y-%m-%d", localtime; my $req = $dbh->prepare("INSERT INTO X VALUES(?, ?, ?, ?, ?)"); $req->execute( $Time, $Groupe, $Batch, $Description, $Status )or die "requete impossible"; while ($entry=<HND_FILE>){ chomp($entry); print "|".$entry."|"; $dbh->disconnect(); } __END__
merci
Partager