Discussion :

[specimen35]

Bonjour,
bon ce script doit recupérer des données de quotas disque puis les transformer en varible . ensuite une connexion a distance sera etablie avec le module dbd::mysql et une requete d'insertion sera crée pour nourrir la base ; voici mon script :

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
24
25
26
27
28
#!/usr/bin/perl -w
use strict;
use DBI;
use CGI;
 
my $cgi = new CGI;
my $recup = ` sed -e '1,/-\+/d;/^$/,$d' repquota -v/chemin` 
my ($user1,$used1,$soft1,$hard1,$grace1,$used2,$soft2,$hard2,$grace2);
 
print "Content-type: text/html\n\n";
 
#Connection à la base de données mysql avec le module dbd::mysql (conncetion à distance)
$dbh = DBI->connect("DBI:mysql:database=$db;host=$host",
                      $user, $password, {RaiseError => 1});
 
#Requete sur la base de donnée 
my $query = sprintf("INSERT INTO foo VALUES (%d, %s)",
                      $number, $dbh->quote("name"));
  $dbh->do($query);
 
while ($ligne = $recup){
# récupération des éléments
 ($user1,$used1,$soft1,$hard1,$grace1,$used2,$soft2,$hard2,$grace2) = split /;/,$ligne;
# et on insere dans la base
  $db->do("insert into client values ('$user1','$used1','$soft1','$hard1','$grace1','$used2','$soft2','$hard2','$grace2')"
 
);
          or die "pb de requete : $DBI::errstr";

[specimen35]

personne ne peut m'aider

[Arioch]

T'aider à quoi ?

Le sujet de ton topic, c'est : qu'est-ce que vous pensez de mon script Perl ?

Dans ton message initial, rien ne laisse présager que le-dit script aurait le moindre problème.

Pourquoi devrait-on t'aider ? Et surtout, en quoi ???

[specimen35]

Mon script ne marche pas et je vous demande si quelqu'un pourrait m'aider a resoudre mon probleme

[Arioch]

C'est dommage : j'ai bêtement oublié ma boule de cristal ce matin à la maison et du coup, je n'ai aucune idée de la nature de ton problème.

[specimen35]

Tu es du genre ironique ou je ne suis pas dans un forum d'entraide