Discussion :

[ciols]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lolo78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philou67430]

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

[ciols]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Philou67430]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 = ();
    }
  }
}