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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
|
open (FILE , 'c:\blabla.txt') or die "Grosproblemo : $! \n";
open (OUTFILE, '>c:\blablamod.txt') or die "MedioProblemo";
while(my $line=<FILE>)
{
chomp($line);
$compt++;
$token="";
if ($line=~ m[class="(titre|auteur|éditeur|texte|format)">(.+?)(<(/td|/span|br)>\s*)?$])
{
my $l1=$compt;
print OUTFILE $compt," : ",uc($1)," : ",$2," ";
my $theme=$1;
$token=$2;
if (!$4)
{
do
{
$line=<FILE>;
chomp($line);
$compt++;
if ($line!~m[^\s*(.*?)(<(/td|/span|br)>\s*?)+$])
{
$line=~s/^\s*//;
print OUTFILE $line," ";
}
else
{
print OUTFILE $1,"\n";
goto MORE;
}
}
while(1);
MORE : print OUTFILE "Derniere ligne : ",$compt,"\n";
}
print OUTFILE "\n";
}
}
close(OUTFILE);
close(FILE);
print "c est fini"; |
Partager