Edito
Voila voila, je refais mon infra…
Et j'ai donc envie de participer a une oeuvre commune :
Antoine.
Pub
Désolé de vous incommoder avec cela, c'est un mal aujourd'hui nécessaire. Je le souhaite juste utile, on verra.
Différences
Cette page vous donne les différences entre la révision choisie et la version actuelle de la page.
|
docs:linuxeries:perl [2012/03/13 07:56] 127.0.0.1 édition externe |
docs:linuxeries:perl [2013/03/12 15:29] (version actuelle) |
||
|---|---|---|---|
| Ligne 22: | Ligne 22: | ||
| </xtermrtf> | </xtermrtf> | ||
| ====== Parsage simple d'XML ====== | ====== Parsage simple d'XML ====== | ||
| + | * ne pas oublier //apt-get install libxml-simple-perl// | ||
| <xtermrtf> | <xtermrtf> | ||
| use XML::Simple; | use XML::Simple; | ||
| Ligne 36: | Ligne 37: | ||
| #Voila comment il est simple d'acceder a un range de données precis ;) | #Voila comment il est simple d'acceder a un range de données precis ;) | ||
| while(defined($ref->{'quotas'}{'quota'}[$i])) { | while(defined($ref->{'quotas'}{'quota'}[$i])) { | ||
| + | </xtermrtf> | ||
| + | |||
| + | ====== Récuperation de quelques info user courant ====== | ||
| + | <xtermrtf> | ||
| + | use POSIX qw(getgroups); | ||
| + | |||
| + | my %groupes; #Un hash contenant les groupes de l'utilisateur en cours | ||
| + | my $uid =$<; # Chargement du uid en cours | ||
| + | foreach(getgroups()) { $groupes{$_}=""; } # Chargement les id des groupes de l'user en cour | ||
| + | |||
| + | </xtermrtf> | ||
| + | ====== Formattage des affichages ====== | ||
| + | en fait on passe par la fonction [[http://perldoc.perl.org/functions/sprintf.html|printf]] | ||
| + | <xtermrtf> | ||
| + | my $frm_cible ="%-25s %-15s"; | ||
| + | |||
| + | printf($frm_cible,"Cible","Directory"); | ||
| + | if($opt{'d'}) { printf($frm_titre,"Disk","Usage","Soft","Limit"); } | ||
| + | if($opt{'f'}) { printf($frm_titre,"File","Usage","Soft","Limit"); } | ||
| </xtermrtf> | </xtermrtf> | ||
