Perl – Préparation d’une répartition

En entrée : des lignes sous un format pré-défini.
En sortie : des références sur liste prêtes pour une répartition.

map {
[map /\s*(\S.*\S|\S?)/, unpack "A8 x1 A5 x1 A4 x1 A4 x1 A5 x1 A5 x1 A3 x1 A4 x0 A6 x1 A6 x1 A*", $_]
} `ps uaxww`;


Explication : unpack rend une liste pour chaque ligne du « ps auxww » et on garde le texte.

Doc : perldoc -f unpack && perldoc -f map

Autres articles susceptibles de vous intéresser :

• 27 avril 2009 -- Comment savoir si une machine est 32 bits ou 64 bits ?
• 6 janvier 2009 -- Perl – Embarquer un test dans un module
• 15 décembre 2008 -- Perl – Template et modèles d’execution
• 29 octobre 2008 -- Perl – YAML est cool
• 23 octobre 2008 -- Perl – Rechercher une expression et garder plusieurs lignes