Aide sur mon script perl Résolu/Fermé

Question

Bonjour,

voici mon script 

#!/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

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

lami20j · Answer

Salut,

1. oui il manque
2. utliser sed quand tu as la puissance des regex de Perl, c'est vraiment superflu
3. je vais regarder ce soir,

 ce que j'ai besoin c'est d'avoir une sortie de la commande

on pourra stocker le résultat dans une chaîne ou dans un fichier texte

specimen35 · Answer

Voici le ce qui ce passe quand je fait un pepquota -v (exemple de fichier) :

eport for user quotas on device /dev/mapper/data-sitcar
Block grace time: 7days; Inode grace time: 7days
Block limits File limits
User used soft hard grace used soft hard grace
----------------------------------------------------------------------
root -- 157696 0 0 12 0 0
uucp -- 40 0 0 76 0 0
fradin -- 2304352 2500000 2550000 12465 50000 55000

Statistics:
Total blocks: 7
Data blocks: 1
Entries: 3
Used average: 3.000000

ensuite voici ce qui ce passe quand je fait  : 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

L'objectif de mon code (que je metterai en cron plus tard ) est de nourrir une base de donnée distante ( donc de lui donnée toute les infos de repquota) Il faut que je mette toute ces donnée en variable puis je les balance a la table distante . Une fois que tout cela sera terminé je ferai un script php qui donnera dans une sorte d'intranet les quotas disque utilisé puis ... . 

Voila a tu compris mon objectif ? 

Maintenant il est vrai j'ai  quelque soucis dans mon code mais en tant que debutatn et surtout premier script voila je demande de l'aide en tout cas merci a toi 

Sinon voici se qu'une autre personne ma conseillé quand pense tu ? 

Il ma mis en commentaire les lignes d'origine

Code :

#!/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

";
 
#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"; 

Voiloilou!!!!

specimen35 · Answer

up

kij_82 · Answer

Effectivement ca boucle, mais non pas indéfiniement, mais infiniement ;)

Quand tu fais ceci :
while ($ligne = $recup){

Il n'y a pas de condition d'arrêt puisque $ligne = $recup n'est pas une condition, mais une attribution.
Dans ce type de cas, généralement on fais un truc du genre :

while ( ($ligne = $recup) != null ){
     // --- code
}


Affectation + test en même temps.
Regarde si tu ne peux pas faire un truc du même genre (condition sur la nullité de ta ligne)

lami20j · Answer

Salut,

pas testé
à savoir que si un champ est vide tu auras de problèmes
vaut mieux utiliser le module Quota, qui met un zéro pour le champ vide
l'inconvenient c'est qu'il faut exécuter un getpwent mets il n'y a pas vraiment de perte de performances
#!/usr/bin/perl
use strict;use warnings;
use DBI;
use CGI;
use Quota;
my $cgi = new CGI;


print "Content-type: text/html

";

#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);

my $dev = Quota::getdev('/home'); # à modifier avec ton chemin

while(my ($nom,$uid) = (getpwent())[0,2]){
  my @tmp = Quota::query($dev,$uid);
  if (eval(join '+',@tmp) > 0){
    my($u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2) = map { $dbh->quote($_) } @tmp;
    print "$nom : $u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2
"; # seulement pour test

    $db->do("insert into client values ($nom,$u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2)");
      or die "pb de requete : $DBI::errstr";
  }
}je vais tester plus tard, mais normalement ça doit fonctionner

specimen35 · Answer

Oki , je le testerai aussi en tout cas merci pour les commentaires de tout le monde

lami20j · Answer

Re,

il y a quelques erreurs dans le script, je ne me suis penché que sur l'histoire d'obtenir les quotas

j'ai crée une base avec une table de 10 champs
id,utilisateur,u1,s1,h1,g1,u2,s2,h2,g2
ensuite j'ai fait ce test et ça marche

à toi d'adapter

quand tu fait insert il faut spécifier les champs

donc le script que je te donne, fonctionne, je l'ai testé
j'ai mis des variables, qui te permettra de changer seulement la valeur

#!/usr/bin/perl
use strict;use warnings;
use DBI;
use Quota;

my $base = 'aaa';
my $host = 'localhost';
my $user = 'root';
my $pass = 'aaaaaaaa';
my $mysql_sock = '/var/run/mysqld/mysqld.sock';

#Connection à base de donnée mysql
my $db = DBI->connect("DBI:mysql:database=$base;host=$host;mysql_socket=$mysql_sock",
                $user, $pass, {RaiseError => 1});

my $dev = Quota::getdev('/'); # à modifier avec ton chemin

while(my ($nom,$uid) = (getpwent())[0,2]){
        my @tmp = Quota::query($dev,$uid);
        if (eval(join '+',@tmp) > 0){
                my($u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2) = map {$db->quote($_)} @tmp;
                my $nom_ = $db->quote($nom);

$db->do("INSERT INTO quota
          (utilisateur,u1,s1,h1,g1,u2,s2,h2,g2) VALUES  (
                  $nom_,
                  $u1,
                  $s1,
                  $h1,
                  $g1,
                  $u2,
                  $s2,
                  $h2,
                  $g2)
          ")
        or die "pb de requete : $DBI::errstr";
        }
}
__END__--

lami20j

specimen35 · Answer

je vais tester cela par contre quota c'est un module ? cpan ?

lami20j · Answer

oui tu peux chercher sur cpan
sur mon debian je l'ai installer avec aptitude install libquota-perl
peut être que tu l'as aussi sur ta distribution.
Voici pour une meilleur visibilité
#!/usr/bin/perl
use strict;use warnings;
use DBI;
use Quota;

my $base = 'aaa';
my $host = 'localhost';
my $user = 'root';
my $pass = 'aaaaaaaa';
my $mysql_sock = '/var/run/mysqld/mysqld.sock';

#Connection à la base de données
my $db = DBI->connect("DBI:mysql:database=$base;
                       host=$host;
                       mysql_socket=$mysql_sock",
                       $user,
                       $pass,
                       {RaiseError => 1}
                     );

my $dev = Quota::getdev('/'); # à modifier avec ton chemin

while(my ($nom,$uid) = (getpwent())[0,2]){
        my @tmp = Quota::query($dev,$uid);
        if (eval(join '+',@tmp) > 0){
                my($u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2) = map {$db->quote($_)} @tmp;
                my $nom_ = $db->quote($nom);

# insertion dans la base de données
$db->do("INSERT INTO quota
          (utilisateur,u1,s1,h1,g1,u2,s2,h2,g2) VALUES  (
                  $nom_,
                  $u1,
                  $s1,
                  $h1,
                  $g1,
                  $u2,
                  $s2,
                  $h2,
                  $g2)
          ")
        or die "pb de requete : $DBI::errstr";
        }
}
__END__

specimen35 · Answer

#!/usr/bin/perl
use strict;use warnings;
use DBI;
use Quota;

my $base = 'aaa';
my $host = 'localhost';
my $user = 'root';
my $pass = 'aaaaaaaa';
my $mysql_sock = '/var/run/mysqld/mysqld.sock';

#Connection à la base de données
my $db = DBI->connect("DBI:mysql:database=$base;
                       host=$host;
                       mysql_socket=$mysql_sock",
                       $user,
                       $pass,
                       {RaiseError => 1}
                     );

Cette partie oki 

my $dev = Quota::getdev('/'); # à modifier avec ton chemin

La je ne voit pas trop c'est pour le chemin de koi 


# la c'est pour ... 
while(my ($nom,$uid) = (getpwent())[0,2]){
        my @tmp = Quota::query($dev,$uid);
        if (eval(join '+',@tmp) > 0){
                my($u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2) = map {$db->quote($_)} @tmp;
                my $nom_ = $db->quote($nom);

# insertion dans la base de données                                ok 
$db->do("INSERT INTO quota                          ok        
          (utilisateur,u1,s1,h1,g1,u2,s2,h2,g2) VALUES  (      ok 
                  $nom_,            ok 
                  $u1,               ok 
                  $s1,           ok 
                  $h1,      ok 
                  $g1,          ok 
                  $u2,                ok  
                  $s2,                   ok 
                  $h2,                 ok 
                  $g2)         ok 
          ")                       ok                             
        or die "pb de requete : $DBI::errstr";                 ok 
        }        ok  
}             ok  
__END__        ok 


je test merci

lami20j · Answer

my $dev = Quota::getdev('/'); # à modifier avec ton chemin

La je ne voit pas trop c'est pour le chemin de koi 

le chemin que tu utilisais pour repquota ;-))))
moi j'ai fait le test pour la racine
tu veux peut être tester un autre chemin
/home
je ne sais pas
regarde dans /etc/mtab les partition monté avec l'option de quota disque

specimen35 · Answer

mon chemin se situe pour moi dans /home/export/nomdel'entrerpise 

Sa doit etre bon je pense la je suis entrai nde lutter pour trouver le module quota : je suis avec une fedora core 7

lami20j · Answer

regarde ici https://metacpan.org/pod/distribution/Quota/Quota.pm

lami20j · Answer

je suis avec une fedora core 7

et tu ne peux pas changer??
t'es sur ovh par hasart?!

specimen35 · Answer

J'ai installé le module esce que toi aussi tu a eu pour l'install  a mettre le chemin l'iud .....

specimen35 · Answer

OVH c'est une entrerpise de domaine ? 

Moi je suis null par je suis en local reseau d'entreprise 

regarde pour mon install : il me fait sa :

make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-Iblib/lib" "-Iblib/arch" test.pl

Enter path to get quota for (NFS possible; default '.'):

lami20j · Answer

tu laisses par défaut

lami20j · Answer

Une fois que tu l'as installé tu peux taper cette commande pour voir si tout va bien ;-) perl -MQuota -e 'print "$Quota::VERSION
"'--

lami20j

specimen35 · Answer

oki je vais mettre en place une maquette cette aprem-midi 
je te redis pour la suite des evenement mais apriori sa devrai tres bien marcher

specimen35 · Answer

Bon resultat de la maquette : 

1 . J'ai eu pas mal de soucis pour lancé le service httpd mais bon enfin de compte sa la fait 
2. une fois lancé forcement il y avait un soucis avec allow from all 
3. puis j'ai crée ma table en fonction de toi dit moi si j'ai fait une erreur 

table quota : 

utilisateur 
u1
s1
h1
g1
u2
s2
h2
g2

cela est ma table quota ( normalement comme la tienne )

ensuite je fait les modife sur mon script 

#!/usr/bin/perl
use strict;use warnings;
use DBI;
use Quota;

my $base = 'test';
my $host = '10.27.0.51';
my $user = 'user';
my $pass = '';
my $mysql_sock = '/var/run/mysqld/mysqld.sock';

#Connection à la base de données
my $db = DBI->connect("DBI:mysql:database=$base;
                       host=$host;
                       mysql_socket=$mysql_sock",
                       $user,
                       $pass,
                       {RaiseError => 1}
                     );

my $dev = Quota::getdev('/'); # à modifier avec ton chemin


while(my ($nom,$uid) = (getpwent())[0,2]){
        my @tmp = Quota::query($dev,$uid);
        if (eval(join '+',@tmp) > 0){
                my($u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2) = map {$db->quote($_)} @tmp;
                my $nom_ = $db->quote($nom);

# insertion dans la base de données
$db->do("INSERT INTO quota
          (utilisateur,u1,s1,h1,g1,u2,s2,h2,g2) VALUES  (
                  $nom_,
                  $u1,
                  $s1,
                  $h1,
                  $g1,
                  $u2,
                  $s2,
                  $h2,
                  $g2)
          ")
        or die "pb de requete : $DBI::errstr";
        }
}
__END__
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~                                    

dit moi si je me trompe puis je lance mon script et sa me fait 

Use of uninitialized value in numeric gt (>) at ./gregpython.pl line 26.

quand pense tu ?

lami20j · Answer

teste ce scritpt et affiche le résultat
#!/usr/bin/perl
use strict;use warnings;
use DBI;
use Quota;

my $base = 'test';
my $host = '10.27.0.51';
my $user = 'user';
my $pass = '';
my $mysql_sock = '/var/run/mysqld/mysqld.sock';

#Connection à la base de données
my $db = DBI->connect("DBI:mysql:database=$base;
                       host=$host;
                       mysql_socket=$mysql_sock",
                       $user,
                       $pass,
                       {RaiseError => 1}
                     );

my $dev = Quota::getdev('/'); # à modifier avec ton chemin


while(my ($nom,$uid) = (getpwent())[0,2]){
        my @tmp = Quota::query($dev,$uid);
        if (eval(join '+',@tmp) > 0){
                my($u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2) =  @tmp;
		print "$u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2
";
	}
}
                
__END__affiche aussi le résultat de 
cat /etc/fstab
mount

specimen35 · Answer

Voici les resultats : 



[root@pc-b27-52 bin]# ./gregpython.pl 
Use of uninitialized value in numeric gt (>) at ./gregpython.pl line 26.




[root@pc-b27-52 bin]# cat /etc/fstab
/dev/VolGroup00/LogVol00 /                       ext3    defaults        1 1
LABEL=/boot             /boot                   ext3    defaults        1 2
devpts                  /dev/pts                devpts  gid=5,mode=620  0 0
tmpfs                   /dev/shm                tmpfs   defaults        0 0
proc                    /proc                   proc    defaults        0 0
sysfs                   /sys                    sysfs   defaults        0 0
/dev/VolGroup00/LogVol01 swap                    swap    defaults        0 0

root@pc-b27-52 bin]# mount
/dev/mapper/VolGroup00-LogVol00 on / type ext3 (rw)
proc on /proc type proc (rw)
sysfs on /sys type sysfs (rw)
devpts on /dev/pts type devpts (rw,gid=5,mode=620)
/dev/hda1 on /boot type ext3 (rw)
tmpfs on /dev/shm type tmpfs (rw)
none on /proc/sys/fs/binfmt_misc type binfmt_misc (rw)
sunrpc on /var/lib/nfs/rpc_pipefs type rpc_pipefs (rw)

specimen35 · Answer

Sa doit surement etre un soucis de module perl j'ai remarqué que les lignes suivantes amene a l'erreur : 

while(my ($nom,$uid) = (getpwent())[0,2]){
        my @tmp = Quota::query($dev,$uid);
        if (eval(join '+',@tmp) > 0){
                my($u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2) =  @tmp;
		print "$u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2
";
	}
}

specimen35 · Answer

Autrement j'ai remplacer 

if (eval(join '+',@tmp) > 0){

par 

if(scalar(grep{$_!=0}@tmp)>0){ 

et je n'est desormais plus d'erreur 

par contre je ne voit pas comment vérifier si mes donneés son inscrit sur ma base

lami20j · Answer

Salut,

ben, tu n'as qu'à faire un select dans la table pour vérifier ;-)

specimen35 · Answer

salut , non il n'y a aucaun enregistrement :(

lami20j · Answer

C'est normal, il n'y a pas de données

Use of uninitialized value in numeric gt (>) at ./gregpython.pl line 26.

Mais tu n'auras pas puisque les partitions ne sont pas montées avec les options pour quota

tu dois avoir quelque chose de genre

root@debian:~# mount
/dev/hda1 on / type ext3 (rw,usrquota,errors=remount-ro)
tmpfs on /lib/init/rw type tmpfs (rw,nosuid,mode=0755)
proc on /proc type proc (rw,noexec,nosuid,nodev)
sysfs on /sys type sysfs (rw,noexec,nosuid,nodev)
udev on /dev type tmpfs (rw,mode=0755)
tmpfs on /dev/shm type tmpfs (rw,nosuid,nodev)
devpts on /dev/pts type devpts (rw,noexec,nosuid,gid=5,mode=620)
root@debian:~#

specimen35 · Answer

ja'i ceci 

root@pc-b27-52 bin]# mount
/dev/mapper/VolGroup00-LogVol00 on / type ext3 (rw)
proc on /proc type proc (rw)
sysfs on /sys type sysfs (rw)
devpts on /dev/pts type devpts (rw,gid=5,mode=620)
/dev/hda1 on /boot type ext3 (rw)
tmpfs on /dev/shm type tmpfs (rw)
none on /proc/sys/fs/binfmt_misc type binfmt_misc (rw)
sunrpc on /var/lib/nfs/rpc_pipefs type rpc_pipefs (rw)

specimen35 · Answer

je test pas a pas mon script pour le moment mais apres i don't know

specimen35 · Answer

oui mince j'ai aumis les systemes de fichier et les quotas autant pour moi je vais tester cela

specimen35 · Answer

Retour : Bon pour l'instant je suis en standby car j'ai des petit soucis de quota sur ma maquette . mes systemes de fichier m'amen a des erreur s sytèmes ( de plus j'ai des petits soucis avec le sata ) je travail dessus pour l'instant je te redirais pour le script si tout est oki mais a priories il est bon je les testé pas a pas mise a par avec les variables que je n'est pas pu tester.

lami20j · Answer

oups
je viens de me rendre compte que ton script s'appelle
gregpython.pl 

pourquoi pas greperl.pl ???  :-DDD

specimen35 · Answer

a oui mince , au debut je voulait faire mon script avec python et j'ai oublié de changer oups :)))

specimen35 · Answer

Bon lamij j'ai bien crée tout mes quotas puis executé le script mes toujours rien je ne comprend pas pourkoi

lami20j · Answer

Salut,

je ne vois toujours quota sur tes partitions

il y a moyen que je me connecte chez toi pour voir ?!

specimen35 · Answer

salut , enfaite je vient de voir que quen je fait quotaon -a j'est cela : 

 quotaon -a
quotaon: utilisation de /home/aquota.group sur /dev/hda1 [/home] : Argument invalide
quotaon: Essayez peut-être de créer un nouveau fichier de quotas avec quotacheck(8) ?
quotaon: utilisation de /home/aquota.user sur /dev/hda1 [/home] : Argument invalide
quotaon: Essayez peut-être de créer un nouveau fichier de quotas avec quotacheck(8) ?

lami20j · Answer

Regarde ici (en gras)
Chez toi je ne vois pas.
Tes partitions ne sont pas monté avec l'option quota

affiche
cat /etc/fstab--

lami20j

specimen35 · Answer

j'ai enlevé adquota.group car il ne me ser a rien et voila su que j'ai dans la fstab :



 cat /etc/fstab 
/dev/VolGroup00/LogVol00 /                       ext3    defaults        1 1
LABEL=/boot             /boot                   ext3    defaults        1 2
devpts                  /dev/pts                devpts  gid=5,mode=620  0 0
tmpfs                   /dev/shm                tmpfs   defaults        0 0
proc                    /proc                   proc    defaults        0 0
sysfs                   /sys                    sysfs   defaults        0 0
/dev/VolGroup00/LogVol01 swap                    swap    defaults        0 0
/dev/hda1       /home          ext3    defaults,usrquota, 1 0

lami20j · Answer

Mets en commentaire la partie avec la base de donnée et laisse seulement le print
Ensuite exécute le script et affiche le résultat
Mets en commentaire aussi le if

specimen35 · Answer

./gregperl.pl 
Global symbol "$u1" requires explicit package name at ./gregperl.pl line 28.
Global symbol "$s1" requires explicit package name at ./gregperl.pl line 28.
Global symbol "$h1" requires explicit package name at ./gregperl.pl line 28.
Global symbol "$g1" requires explicit package name at ./gregperl.pl line 28.
Global symbol "$u2" requires explicit package name at ./gregperl.pl line 28.
Global symbol "$s2" requires explicit package name at ./gregperl.pl line 28.
Global symbol "$h2" requires explicit package name at ./gregperl.pl line 28.
Global symbol "$g2" requires explicit package name at ./gregperl.pl line 28.
Execution of ./gregperl.pl aborted due to compilation errors.

lami20j · Answer

affiche le script

specimen35 · Answer

#!/usr/bin/perl
use strict;use warnings;
use DBI;
use Quota;

my $base = 'test';
my $host = '10.27.0.51';
my $user = 'user';
my $pass = '';
my $mysql_sock = '/var/run/mysqld/mysqld.sock';

#Connection à la base de données
#my $db = DBI->connect("DBI:mysql:database=$base;
 #                      host=$host;
  #                     mysql_socket=$mysql_sock",
   #                    $user,
    #                   $pass,
     #                  {RaiseError => 1}
      #               );

my $dev = Quota::getdev('/home'); # à modifier avec ton chemin


while(my ($nom,$uid) = (getpwent())[0,2]){
        my @tmp = Quota::query($dev,$uid);
#                if(scalar(grep{$_!=0}@tmp)>0){
#               my($u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2) =  @tmp;
                print "$u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2
";
        }
 #}

__END__
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~

lami20j · Answer

#               my($u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2) =  @tmp;

cette ligne tu ne l'a mets pas en commentaire

specimen35 · Answer

./gregperl.pl 
Use of uninitialized value in concatenation (.) or string at ./gregperl.pl line 28.

lami20j · Answer

fait comme ça

while(my ($nom,$uid) = (getpwent())[0,2]){
        my @tmp = Quota::query($dev,$uid);
#                if(scalar(grep{$_!=0}@tmp)>0){
#               my($u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2) =  @tmp;
#                print "$u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2
";
 #       }
print "@tmp
";
 }

specimen35 · Answer

voila se que j'ai dans mon script 

#!/usr/bin/perl
use strict;use warnings;
use DBI;
use Quota;

my $base = 'test';
my $host = '10.27.0.51';
my $user = 'user';
my $pass = '';
my $mysql_sock = '/var/run/mysqld/mysqld.sock';

#Connection à la base de données
#my $db = DBI->connect("DBI:mysql:database=$base;
 #                      host=$host;
  #                     mysql_socket=$mysql_sock",
   #                    $user,
    #                   $pass,
     #                  {RaiseError => 1}
      #               );

my $dev = Quota::getdev('/home'); # à modifier avec ton chemin

while(my ($nom,$uid) = (getpwent())[0,2]){
        my @tmp = Quota::query($dev,$uid);
#                if(scalar(grep{$_!=0}@tmp)>0){
#               my($u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2) =  @tmp;
#                print "$u1,$s1,$h1,$g1,$u2,$s2,$h2,$g2
";
 #       }
print "@tmp
";
 }
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~                   

Et sa me donne un gros trou blanc !! quand je l'execute ( trou blanc = a la ligne plein de fois )

lami20j · Answer

affiche le résultat de la commande (attention c'est une seule ligne)
 perl -MQuota -e '$dev=Quota::getdev("/home"); while(my ($nom,$uid) = (getpwent())[0,2]){ print Quota::query($dev,$uid),"
"}'
ainsi que repquota /dev/hda1

specimen35 · Answer

alors : 

perl -MQuota -e '$dev=Quota::getdev("/home"); while(my ($nom,$uid) = (getpwent())[0,2]){ print Quota::query($dev,$uid),"
"}'

pareil que le script que de l'affichage null

et voici le deuxieme : 

repquota /dev/hda1
*** Rapport pour les quotas user sur le périphérique /dev/hda1
Période de sursis bloc : 7days ; période de sursis inode : 7days
                        Limites bloc               Limites fichier
Utilisateur     utilisé souple stricte sursis utilisé souple stricte sursis
----------------------------------------------------------------------
root      --   10921       0       0             28     0     0       
test      --       4    9000   10000              4  9000 10000

lami20j · Answer

exécute le script en tant que root

regarde chez moi

en tant que lami20j
lami20j@debian:~$  perl -MQuota -e '$dev=Quota::getdev("/home"); while(my ($nom,$uid) = (getpwent())[0,2]){ print Quota::query($dev,$uid),"
"}'

























1876318800098012000










lami20j@debian:~$
en tant que rootdebian:~# perl -MQuota -e '$dev=Quota::getdev("/home"); while(my ($nom,$uid) = (getpwent())[0,2]){ print Quota::query($dev,$uid),"
"}'
1762000004000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
1876318800098012000
00000000
160004000
00000000
00000000
00000000
00000000
00000000
160004000
160004000
00000000
debian:~#

specimen35 · Answer

Oui je les fait en root , 


Je vien de voir un soucis au niveau de mes quotas quand je fait quotaon j'ai un messages d'erreur :(

specimen35 · Answer

ok c'est bon c'étais mon quota qui étais mal fait quand je faisait quotaon -a j'avais une erreur donc c'est bon mainteanant je part sur un script pour les quota impression et mail. je vais ouvrrir un autre topic pour cela , . Je vais toujours garder les meme script que l'on a fait pour les suota disque et essayer de voir si on peut le faire avec les quota impression et mail !! 

Voila et encore merci ( maintenant si tu veut m'aider pour les autres script :) je ne dirais pas non lol ) 

En tout les cas je dirai : ENCORE UNE VICTOIRE DE CAN... EU DE LAMI20J

Aide sur mon script perl

51 réponses

Discussions similaires