Que pensez vous de mon script perl

Version imprimable

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:

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";

11/01/2008, 09h22
specimen35

personne ne peut m'aider :(
11/01/2008, 09h27
Arioch

T'aider à quoi ? 8O

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 ??? :mouarf2:
11/01/2008, 09h34
specimen35

Mon script ne marche pas et je vous demande si quelqu'un pourrait m'aider a resoudre mon probleme
11/01/2008, 09h37
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.

:aie:
11/01/2008, 09h42
specimen35

Tu es du genre ironique ou je ne suis pas dans un forum d'entraide
11/01/2008, 09h48
Arioch

Citation:

Envoyé par specimen35

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

Une chose est sûre : tu n'es pas dans un forum de devins.

Et une autre chose est sûre : si tu n'es pas capable de nous dire exactement ce qui cloche dans ton script, personne ne vas trouver la solution à ta place.

Quand on a un problème, encore faut-il être capable de l'expliquer...

PS : pour l'instant, on en sait autant sur ton problème que si tu te pointais chez un garagiste en lui demandant comment il trouve ta voiture, sachant qu'en réalité ta voiture a un problème de bougies défectueuses mais ça, c'est au garagiste de le savoir rien qu'en te voyant.
11/01/2008, 09h51
Mimiche

Bonjour,

Essaye déjà en mettant un ; à la fin de la ligne 7.
11/01/2008, 09h57
specimen35
Bon on va structurer ce que j'ai vue :

1) il manque un ; à la fin de la ligne 7 : d'accor ou pas d'accord

2) Utiliser Sed est il bon d'apres vous car je ne suis pas sûr de ce que cela filtre.
avec sed voici le principe :
Code:

1 2 3 4 5 sed -e '1,/-\+/d;/^$/,$d' rep //rep = fichier root -- 157696 0 0 12 0 0 uucp -- 40 0 0 76 0 0 fradin -- 2304352 2500000 2550000 12465 50000 55000
je ve recupérer les données que je vien de faire avec sed puis les mettre en variable soit :

Code:

my ($user1,$used1,$soft1,$hard1,$grace1,$used2,$soft2,$hard2,$grace2);

d'accord du code ou pas d'accord

3) Pour moi le programme boucle indéfiniement, vu que ni $recup, ni $ligne ne sont modifiés dans la boucle. D'ailleurs, si je comprend bien le code, il serait même plus judicieux de "parser" le résultat du "repquota" dans la boucle. Mais comment ces une de mes grande question

d'autre suggestion sur mon code je suis prenneur merci
11/01/2008, 10h20
Arioch

Pour le point 2) (sed), si le résultat dans ta console ressemble à ce que tu nous as mis en exemple (plusieurs lignes retournées par sed), ta variable $recup récupère donc le résultat avec plusieurs lignes.

Peut être un tableau @recup serait plus judicieux ? Ou alors, réorganiser le contenu de la variable pour qu'elle ne contienne plus qu'une ligne et non plusieurs ?

Enfin, le split utilisé sur $recup éclate les données en fonction du séparateur ;

Je ne vois le séparateur nulle part dans ce que te retourne la commande sed.
11/01/2008, 10h43
specimen35

Si tu a retrouvé ta boule de cristal :mouarf:pourrait tu m'indiquer dans mon code comment rajouté mon split ;)

Citation:

Envoyé par specimen35

Si tu a retrouvé ta boule de cristal :mouarf:pourrait tu m'indiquer dans mon code comment rajouté mon split ;)

Ce n'est pas le fait d'avoir retrouvé ma boule de cristal, mais plus le fait d'avoir un interlocuteur qui explique réellement son problème qui fait que ça avance :yaisse2:

Voilà ton bout de code remanié pour le problème 2)

J'ai mis en commentaire les lignes d'origine

Code:

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
29
30
31
32
33
#!/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 @recup = ` sed -e '1,/-\+/d;/^$/,$d' repquota -v/chemin`;
chomp(@recup);
 
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){
foreach($ligne(@recup)) {
# récupération des éléments
# ($user1,$used1,$soft1,$hard1,$grace1,$used2,$soft2,$hard2,$grace2) = split /;/,$ligne;
 ($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";

11/01/2008, 11h14
specimen35

Ba est tu de la regien bretonne ? si non dommage je t'aurais payé un apero :mrgreen: a moin que tu ve venir en bretagne :yaisse2:

Ba grand merci a toi

Maintenant si j'ai bien compris mon code devrait bien tourner ?

je le test cette apres midi
14/01/2008, 09h22
specimen35

personnne ?
14/01/2008, 11h41
Arioch

Citation:

Envoyé par specimen35

personnne ?

Heu, personne pour quoi ? :aie:
14/01/2008, 11h48
specimen35

Code:

Maintenant si j'ai bien compris mon code devrait bien tourner ?

Pour la question du dessus
14/01/2008, 12h28
Arioch

Citation:

Envoyé par specimen35

Code:

Maintenant si j'ai bien compris mon code devrait bien tourner ?

Pour la question du dessus

Qui pourrait mieux répondre que toi à ce genre de question ???

8O
14/01/2008, 13h35
specimen35

Je te posait la question pour savoir si ce que tu me proposait était ok pour mon script et te semblai bon
14/01/2008, 13h37
Arioch

Ok, on est en plein dans un dialogue de sourd.

Bonne continuation, teste bien ton script et reviens voir ce forum si tu as un soucis.

a+