Précédent
- 1
- 2
Bonjour, j'ai essayé d'adapter votre script au mien, mais sans succès ...
#!/usr/bin/perl
use strict;
use warnings;
mais dans résulat.txt il n'y as absolument rien, je comprend vraiment pas pourquoi le regex ne marche pas !
#!/usr/bin/perl
use strict;
use warnings;
open F_LIRE,"lire.txt"
or die "E/S : $!\n";
open F_ECRIRE,">> resultat.txt"
or die "E/S : $!\n";
while(<F_LIRE>){
print F_ECRIRE if /<url>(.*)<\/url><titre>(.*)<\/titre>/g;
}
close F_LIRE;
close F_ECRIRE;
__END__
mais dans résulat.txt il n'y as absolument rien, je comprend vraiment pas pourquoi le regex ne marche pas !
Précédent
- 1
- 2
