Recherche dans un fichier en Perl

Fermé
oliviernouhi Messages postés 82 Date d'inscription vendredi 12 septembre 2008 Statut Membre Dernière intervention 29 novembre 2010 - 25 nov. 2010 à 12:09
Bonjour,

Je souhaite faire une recherche dans un fichier, afin de savoir si il y a des lignes de codes entre 2 classes.

Voici mon code :


# !usr/bin/perl -w
use strict;
use warnings;
 
my $cpt = 0;
 
print "Debut du traitement\n";
 
open FICHIER, '<', "X7all3.apt" or die("E/S : $!\n");
 
while ( my $ligne = <FICHIER> ) {
  $cpt++;
  
  if ( $ligne =~ m/List Initialization\s*(.+)/i ) {
	# my $cara =~ m/\s*(.+)/i;
	my $cara =~ $1;
	if ( $ligne =~ m/\s+Message Actions\s*(.+)/i ) {
		print $cara;
	}	
  }
}
close FICHIER;
print "Fin du traitement";



Par exemple mon fichier en entrée :


				List Initialization
                                blablablabla
				Message Actions



Je voudrais qu'il m'affiche "blablablabla" ou rien si il n'y avait rien entre List Initialization et Message Actions

Merci d'avance