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: [EMAIL PROTECTED]
