Bonjour Messieurs,
 
Je débute en perl et je me lance dans un programme qui me permettra de parser des fichiers .pem par exemple .
Je vous explique mon idée:
 
Dans un fichier X on a ceci :
 
------ DEBUT ------
ezaezrsqdazrsqdazersqda'
------ FIN -------
------ DEBUT ------
sdazrqsdfqsrtqdazeqsd
------ FIN -------
------ DEBUT ------
sqdzafxwvzerwxcvezadscw
------ FIN -------
------ DEBUT ------
cxwfeztgcxvretwscdrzeadfqs
------ FIN -------
 
J'aimerai que mon programme perl puisse faire ceci :
 
Parser le fichier et dès qu'il voit ------ DEBUT ------ et ensuite ------FIN------- qu'il me fasse un openssl sur le contenu entre c'est deux valeurs et qui m'affiche le resultat.
 
Mais le hic c'est que je bloque sur ca. Je ne vois pas comment faire pour qu'il voit -----DEBUT-----.
 
Si des personnes peuvent me donner un coup de main je les remercierai.

Il faut faire un truc de ce style

my $debut = 0;
while (<$filehandle> ) {
  if (/------ DEBUT ------/) {
     $debut = 1;
     # des trucs a faire en preprocessing d'une section entre DEBUT - FIN ??
     next;
   }
  if (/------ FIN ------/) {
    $debut = 0;
     # des trucs a faire en postprocessing d'une section entre DEBUT - FIN ??
    next;
   }
  if ($debut) {
  # le processing que tu veux pour une ligne d'une section entre DEBUT - FIN
  }
 
}

A+,