Perl – Préparation d’une répartition
Mercredi 7 janvier 2009
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 :
Tags: Perl
Posted in System | No Comments »
