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 15:03] adlp |
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 46: | Ligne 47: | ||
| foreach(getgroups()) { $groupes{$_}=""; } # Chargement les id des groupes de l'user en cour | 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> | ||
