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 :

Cet article a été publié dans System avec les mots-clefs : . Bookmarker le permalien. Laisser un commentaire ou faire un trackback : URL de trackback.

Laisser un commentaire

Votre e-mail ne sera jamais publié ni communiqué. Les champs obligatoires sont indiqués par *

*
*

Vous pouvez utiliser ces balises et attributs HTML : <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>