Récupération d'informations lors d'une commande

Bonjour,

Je souhaiterai faire un petit script perl qui permettrait de récupérer un bloc d'informations. Comment savoir quoi récupérer ? Via un paramètre que l'on passe au script et à une regex qui permet de se situer dans l'affichage de la commande.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

#!/usr/bin/perl --   use strict; use warnings; use DBI; use Switch;   my $arg = shift;   my $ligne= $_[0];   ##################### ### FONCTIONS ### #####################   sub recup_correspondance { my $ligne = $_[0];   if ($ligne =~ m/PNN : -.+ PNN : $arg/) {   } }   my $commande = "show ..."   exec $commande;

---

Voila ce que j'ai pour le moment. Cependant je ne sais pas comment faire pour récupérer le début et la fin du bloc d'informations que je veux réafficher dans la console.

Si vous avez des idées/pistes je suis preneur !

Cdlt

Tu ne donnes pratiquement aucune information, impossible de t'aider. Quelles sont tes données en entrée (nature, format, etc.)? Que veux-tu en sortie?

Juste deux points, cependant:

Code:

---

my $ligne= $_[0];

---

Que veux-tu faire avec cette ligne? Le tableau @_ n'est pas défini à ce moment. Si tu veux récupérer les arguments de la ligne de commande, c'est dans le tableau @ARGV.

Code:

---

if ($ligne =~ m/PNN : -.+ PNN : $arg/)

---

Cette regex me paraît fort suspecte, mais je n'en dirais pas plus sans voir des données en entrée.

En attendant des informations plus précises, je te suggère de regarder l'opérateur d'intervalle "..".

Bonjour,

Alors en gros ce que je dois faire est la chose suivante :

Je dois récupérer toutes les informations (ou lignes si vous préférez) entre deux lignes spécifiques et afficher les informations ainsi récupérées. Les informations sont le résultat d'une commande. Ce résultat s'affiche dans le prompte de manière classique. Un petit exemple pour être plus clair :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

PNN = PNN 62 a b nh [lkfdlkfs]fkjdskf kjgflkdg$sdlkfs^f lkmzkmlzkfze oriptite[]   PNN = PNN 63

---

Dans cet exemple, l'utilisateur execute le script (./test.pl 62). Avec le 62 passé en paramètre je désire afficher toutes les lignes comprises entre les deux lignes commençant par PNN dans le prompt ou dans un fichier texte :

Code:

---

1 2 3 4 5 6 7 8

PNN = PNN 62 a b nh [lkfdlkfs]fkjdskf kjgflkdg$sdlkfs^f lkmzkmlzkfze oriptite[]

---

Mais je dois dire que je ne sais pas vraiment comment faire pour répondre à ce besoin.

En espérant avoir été assez clair.

Merci de votre aide.

PS : Je vais plancher dessus entre ce soir et demain. Pour information, la taille des blocs est variable !

Je reste sur l'idée précédente de l'opérateur d'intervalle.
Un exemple d'utilisation :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

my @bloc = (); while (<STDIO>) { my $in_bloc = /^PNN =/ .. (/^\n/ || eof)); if ($in_bloc) { push @bloc, $_; if ($in_bloc =~ /E0/) { # traiter @bloc @bloc = (); } } }

---