<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
Bonjour Stéphane,<br>
<br>
Oui il y a toujours plus d'une façon de faire en Perl ;)<br>
<br>
Donc en fait la "clé" qui me manquait était l'analyse de la sortie
"multiligne" de la commande en "une seule chaine" (et non comme
"plusieurs lignes successives").<br>
La regexp est donc construite pour matcher "autant de fois que
possible" les "clé/valeur" tout au long de la chaine et non "une ou
2 fois par ligne", c'est ce qui me "manquait".<br>
<br>
Merci pour ce petit coup de pouce un samedi à minuit ;)<br>
<br>
Bonne journée,<br>
Nicolas<br>
<br>
<div class="moz-cite-prefix">Le 09/02/2020 à 12:46, Stéphane
Gigandet a écrit :<br>
</div>
<blockquote type="cite"
cite="mid:9412fd06-bc7d-ebfc-d09e-c5fbc842e0f8@joueb.com">
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<div class="moz-cite-prefix">Bonjour Nicolas,</div>
<div class="moz-cite-prefix"><br>
</div>
<div class="moz-cite-prefix">Tu as tout analysé correctement.
L'idée c'est de considérer ta sortie non pas comme une suite de
lignes, mais comme une seule longue chaîne de caractères qui
contient aussi des retours chariots \n. <br>
</div>
<div class="moz-cite-prefix"><br>
</div>
<div class="moz-cite-prefix">Dans cette chaîne, la fin d'une
valeur est suivie soit par plusieurs espaces (quand c'est la
1ère paire clé/valeur et qu'il y en a une 2ème plus à droite),
soit par un retour chariot (quand c'est la dernière paire
clé/valeur de la ligne).</div>
<div class="moz-cite-prefix"><br>
</div>
<div class="moz-cite-prefix">C'est le but du ( |\n) : on arrête
la valeur quand on a 2 espaces ou le retour chariot.</div>
<div class="moz-cite-prefix"><br>
</div>
<div class="moz-cite-prefix">J'ai mis des parenthèses autour de (
|\n), c'est pour que le | s'applique sur les 2 espaces ou le
retour chariot. Ca va effectivement mettre ces 2 espaces ou le
retour chariot dans $3, qu'on n'utilise pas. Ce n'est pas
gênant.</div>
<div class="moz-cite-prefix"><br>
</div>
<div class="moz-cite-prefix">Le /g permet de matcher plusieurs
fois par chaîne, pas par ligne, on ne considère plus chaque
ligne individuellement.<br>
</div>
<div class="moz-cite-prefix"><br>
</div>
<div class="moz-cite-prefix">C'est une solution parmi plein
d'autres possibles, c'est juste celle qui me paraissait la plus
rapide à coder à minuit hier soir. :)</div>
<div class="moz-cite-prefix"><br>
</div>
<div class="moz-cite-prefix">Bonne journée,</div>
<div class="moz-cite-prefix"><br>
</div>
<div class="moz-cite-prefix">Stéphane<br>
</div>
<div class="moz-cite-prefix"><br>
</div>
<div class="moz-cite-prefix">Le 09/02/2020 à 02:41, Nicolas a
écrit :<br>
</div>
<blockquote type="cite"
cite="mid:eafc18d2-39c4-a15f-90c9-d711a2cd650a@escwq.fr">
<meta http-equiv="Content-Type" content="text/html;
charset=UTF-8">
Bonsoir Stéphane,<br>
<br>
Merci pour ta proposition !<br>
C'est effectivement sans doute la bonne approche au global,
modulo que certaines lignes n'ont parfois qu'une seule
"clée/valeur" suivant la config rencontrée (donc non
prévisible).<br>
Il semble que ta regexp "gère ça" mais je n'ai pas encore
compris comment :/<br>
<br>
Par contre j'aimerai quelques explications (ou une confirmation)
sur ta regexp stp (j'aime bien comprendre ^_^ ).<br>
<font face="Courier New">/\s*([^:]+):\s+(.*?)( |\n)/g<br>
/ 0) Début de la regexp<br>
\s* 1) Match 0 ou + "espace"<br>
( 2) On commence la sélection => ce sera $1<br>
[^:]+ 3) On prend <tous les caractères qui ne sont pas
':'><br>
): 4) On termine la sélection juste avant le premier
":"<br>
A ce stade on a "enlevé tous les espaces de
début de ligne (1) et ensuite commencé la sélection (2) juste
avant de prendre <tout ce qui n'est pas ':'> et on
termine la sélection juste avant le premier ":" rencontré (4),
car ":" c'est le séparateur de fin de clée.<br>
\s+ 5) Match 0 ou + "espace"<br>
( 6) On commence la sélection => ce sera $2<br>
.*? 7) On prend n'importe quel caractère en mode "non
gourmand"<br>
) 8) On termine la sélection<br>
A partir d'ici j'ai plus de mal à comprendre
car je pense que ça doit débuter la sélection de $3, alors
qu'on ne l'utilise pas après.<br>
( 9) On commence la sélection => ce sera $3<br>
|\n 10) On prend "2x espace" ou "fin de ligne"<br>
) 11) On termine la sélection<br>
/g 12) Fin de la regex avec utilisation du flag "g" qui
va matcher répétitivement.<br>
</font><br>
Je pense avoir correctement analysé le contenu mais pas le "but"
de la regexp "dans son ensemble", en particulier les parties (9)
et suivantes.<br>
Je pense que le (10) sert à identifier une "fin de paire
cle/valeur" avec les 2 espaces consécutifs ou la fin de ligne.<br>
Le flag "g" va permettre de matcher "plusieurs fois" par ligne
et donc les 2 couples "clé/valeur" par ligne, mais du coup
comment perl "fait-il le job" en utilisant uniquement $1 et $2
dans le while et que devient $3 ?<br>
<br>
En effet, pour une ligne avec 1x "clé/valeur", on va bien avoir
:<br>
$1 = clé<br>
$2 = valeur<br>
Mais pour une ligne avec 2x "clé/valeur", je m'attendrai à avoir
:<br>
$1 = clé<br>
$2 = valeur<br>
$3 = clé<br>
$4 = valeur<br>
<br>
Et là je me rend bien compte que j'ai loupé une subtilité :'(<br>
<br>
A noter qu'il faut que je vérifie qu'il y ai toujours au moins
"2 espaces" entre la fin de la "1ere Valeur" et le début de la
"2eme clee".<br>
Par contre je dois pouvoir utiliser un lettre "majuscule" (les
CLEE sont presque exclusivement en majuscule) comme point de
repère du début de la 2eme clée.... faut que je récupère
d'avantage de "données brut" pour infirmer/confirmer.<br>
<br>
@+<br>
Nicolas<br>
<br>
<br>
<div class="moz-cite-prefix">Le 09/02/2020 à 00:52, Stéphane
Gigandet a écrit :<br>
</div>
<blockquote type="cite"
cite="mid:e8661e8f-b974-6c56-b1ec-193758ef9810@joueb.com">Hello
Nicolas, <br>
<br>
Comme la sortie est toujours de la forme "clé : valeur" (avec
2 paires clés / valeurs sur chaque ligne), le plus simple
c'est peut être de parser toutes les clés en un coup, sans
découper chaque ligne dans un tableau, avec un truc de ce
genre là : <br>
<br>
#!/usr/bin/perl -w <br>
<br>
use strict; <br>
<br>
my $result = `cat result`; <br>
<br>
my %values = (); <br>
<br>
while ($result =~ /\s*([^:]+):\s+(.*?)( |\n)/g) { <br>
$values{$1} = $2; <br>
} <br>
<br>
foreach my $key (sort keys %values) { <br>
print "$key : $values{$key}\n"; <br>
} <br>
<br>
Ca donne ça : <br>
<br>
ACTIVE PVs : 1 <br>
AUTO ON : yes <br>
AUTO SYNC : no <br>
BB POLICY : relocatable <br>
CRITICAL VG : no <br>
DISK BLOCK SIZE : 512 <br>
FREE PPs : 21 (2688 megabytes) <br>
FS SYNC OPTION : no <br>
HOT SPARE : no <br>
INFINITE RETRY : no <br>
LTG size (Dynamic) : 512 kilobyte(s) <br>
LVs : 28 <br>
MAX LVs : 256 <br>
MAX PPs per PV : 1016 <br>
MAX PPs per VG : 32512 <br>
MAX PVs : 32 <br>
OPEN LVs : 22 <br>
PP SIZE : 128 megabyte(s) <br>
PV RESTRICTION : none <br>
QUORUM : 2 (Enabled) <br>
STALE PPs : 0 <br>
STALE PVs : 0 <br>
TOTAL PPs : 799 (102272 megabytes) <br>
TOTAL PVs : 1 <br>
USED PPs : 778 (99584 megabytes) <br>
VG DESCRIPTORS : 2 <br>
VG IDENTIFIER : 00f702be00004c0000000159122168ad <br>
VG PERMISSION : read/write <br>
VG STATE : active <br>
VOLUME GROUP : rootvg <br>
<br>
Bon dimanche, <br>
<br>
Stéphane <br>
<br>
Le 08/02/2020 à 21:56, Nicolas a écrit : <br>
<blockquote type="cite">Bonsoir, <br>
<br>
Après de (trop) nombreuses années à ne pas faire d'admin, je
remets (laborieusement) les mains dans le cambouis... et
donc dans perl ;o) <br>
<br>
Je n'ai jamais eu un niveau "gourou" en perl (même il y a
15ans) mais j'arrive encore à écrire du code qui me donne le
résultat attendu.... alors ça me convient ;o) <br>
Mais du coup je vais peut-être avoir une question "bête"
concernant le traitement de la sortie d'une commande. <br>
<br>
La commande fournit une sortie sur STDOUT que je stocke dans
un tableau via : <br>
my @array=split(/\n/,`ma_super_commande_UNIX`) or die "error
while processing command \"ma_super_commande_UNIX\""; <br>
<br>
Ensuite je fais une boucle pour parcourir le tableau et
appliquer la bonne regexp afin de récupérer les parties
"ah-hoc" de chaque ligne et les stocker dans un hash avec
les bonnes clés. <br>
<br>
La boucle est de la forme : <br>
foreach my $scalar (@array) <br>
{ <br>
if ( $scalar =~ m/VG IDENTIFIER:\s+(\S+)/ ) <br>
{ <br>
$hash{$stanza}{'VGid'}=$1; <br>
} <br>
} <br>
<br>
En répétant les "if" dans la boucle (un "if" par ligne à
traiter avec la regexp associée) je peux matcher chaque
ligne "qui va bien" par exécution de la commande et ainsi
récupérer les 2 valeurs par ligne qui m'intéressent. <br>
<br>
A la place du "if" j'ai essayé une notation de la forme : <br>
($hash{$stanza}{'VGid'}, )=( $scalar =~ m/VG
IDENTIFIER:\s+(\S+)/ ); <br>
<br>
Mais ceci a pour seul résultat de bien matcher la bonne
ligne dans la boucle, mais au "tour suivant" de la boucle
(ligne suivante stockée dans @array) alors la valeur est
"mise à zéro", ceci sans doute car du coup la regexp ne
match pas ce qui est assez logique puisque ce n'est plus la
bonne ligne. <br>
J'ai donc certainement loupé un truc quelque part..... <br>
Je peux bien entendu garder ma ribambelle de "if" à
l'intérieur de la boucle mais..... je pense qu'il y a plus
simple / plus perl et que je ne suis pas loin..... :( <br>
<br>
J'ai mis, un exemple de sortie de commande en fin de mail,
je récupère les 1 ou 2 valeurs par ligne pour stocker la
30aine de valeurs dans un hash. <br>
<br>
Bonne soirée, <br>
Nicolas <br>
<br>
VOLUME GROUP: rootvg VG IDENTIFIER:
00f702be00004c0000000159122168ad <br>
VG STATE: active PP SIZE:
128 megabyte(s) <br>
VG PERMISSION: read/write TOTAL PPs:
799 (102272 megabytes) <br>
MAX LVs: 256 FREE PPs:
21 (2688 megabytes) <br>
LVs: 28 USED PPs:
778 (99584 megabytes) <br>
OPEN LVs: 22 QUORUM:
2 (Enabled) <br>
TOTAL PVs: 1 VG DESCRIPTORS:
2 <br>
STALE PVs: 0 STALE PPs:
0 <br>
ACTIVE PVs: 1 AUTO ON:
yes <br>
MAX PPs per VG: 32512 <br>
MAX PPs per PV: 1016 MAX PVs:
32 <br>
LTG size (Dynamic): 512 kilobyte(s) AUTO SYNC:
no <br>
HOT SPARE: no BB POLICY:
relocatable <br>
PV RESTRICTION: none INFINITE RETRY:
no <br>
DISK BLOCK SIZE: 512 CRITICAL VG:
no <br>
FS SYNC OPTION: no <br>
<br>
<br>
_______________________________________________ <br>
Perl mailing list <br>
<a class="moz-txt-link-abbreviated"
href="mailto:Perl@mongueurs.net" moz-do-not-send="true">Perl@mongueurs.net</a>
<br>
<a class="moz-txt-link-freetext"
href="http://listes.mongueurs.net/mailman/listinfo/perl"
moz-do-not-send="true">http://listes.mongueurs.net/mailman/listinfo/perl</a>
<br>
Attention, les archives sont publiques <br>
</blockquote>
<br>
<br>
_______________________________________________ <br>
Perl mailing list <br>
<a class="moz-txt-link-abbreviated"
href="mailto:Perl@mongueurs.net" moz-do-not-send="true">Perl@mongueurs.net</a>
<br>
<a class="moz-txt-link-freetext"
href="http://listes.mongueurs.net/mailman/listinfo/perl"
moz-do-not-send="true">http://listes.mongueurs.net/mailman/listinfo/perl</a>
<br>
Attention, les archives sont publiques <br>
</blockquote>
<br>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<pre class="moz-quote-pre" wrap="">_______________________________________________
Perl mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Perl@mongueurs.net" moz-do-not-send="true">Perl@mongueurs.net</a>
<a class="moz-txt-link-freetext" href="http://listes.mongueurs.net/mailman/listinfo/perl" moz-do-not-send="true">http://listes.mongueurs.net/mailman/listinfo/perl</a>
Attention, les archives sont publiques</pre>
</blockquote>
<p><br>
</p>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<pre class="moz-quote-pre" wrap="">_______________________________________________
Perl mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Perl@mongueurs.net">Perl@mongueurs.net</a>
<a class="moz-txt-link-freetext" href="http://listes.mongueurs.net/mailman/listinfo/perl">http://listes.mongueurs.net/mailman/listinfo/perl</a>
Attention, les archives sont publiques</pre>
</blockquote>
<br>
</body>
</html>