Re: Aide regex

[Patrice KARATCHENTZEFF <patrice.karatchentzeff-alplog@st.com>]

Francois Cerbelle wrote:
> Bonjour la liste,

Les... cela ne se fait pas de diapublier !

> Je suis en train de faire la traduction d'un livre O'Reilly et le

lequel ?

[...]

> PS: si quelqu'un me propose un programme perl, je suis preneur aussi.
> Peut importe le moyen, pourvu que j'obtienne un fichier dans le format
> énoncé.

#!/usr/bin/perl -w

use strict;

my $file = $ARGV[0]; # nom du fichier

my $index = "0";

open (FILE, $file)
  or die "can't open $file: $!\n";
while (<FILE>)
  {
    if (($_ =~ /(\{_Index)(.+?)(_\})/) && ($index eq "0"))
      {
	print $2, "\n";
	++$index;
      };
    if (($_ =~ /(\{_StartRange_\})(.+?)(_\})/) && ($index eq "1"))
      {
	print $2, "\n";
	++$index;
      };
    if (($_ =~ /(\{_EndRange_\})(.+?)(_\})/) && ($index eq "2"))
      {
	print $2, "\n";
	$index="0";
      };
  }
close(FILE);

Il faudra peut-être jouer avec les index s'il y en a plus... en tout 
cas, cela fonctionne avec tes exemples... c'est gore mais bon...

PK

--
Patrice KARATCHENTZEFF
STMicroelectronics           Tel:  04-76-92-67-96
850, rue Jean Monnet
38926 CROLLES Cedex,  Courriel: patrice.karatchentzeff-alplog@st.com