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:55] adlp PAGE VALIDE |
docs:linuxeries:perl [2013/03/12 15:29] (version actuelle) |
||
|---|---|---|---|
| Ligne 9: | Ligne 9: | ||
| use warnings; | use warnings; | ||
| </xtermrtf> | </xtermrtf> | ||
| + | |||
| + | NB: le -w est 'deprecated' | ||
| ====== L'exploitation des parametres ====== | ====== L'exploitation des parametres ====== | ||
| Ligne 20: | 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 34: | 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> | ||
