A voir également:
- Problèmes en Perl
- Denon perl pro test - Accueil - Audio
- Active perl - Télécharger - Édition & Programmation
- Tableau(perl) ✓ - Forum Perl
- PERL -- liste - Forum Perl
- Perl foreach ✓ - Forum Perl
1 réponse
Pas très compliqué si tu veux le faire à l'arrache.
Essaye un truc dans ce genre :
################################################"
use strict;
use warnings;
open(FICHIERIN, "xxx.html");
open(FICHIEROUT, "<", "xxx.txt");
my $ligne = undef;
my $title = "<TITLE> * </TITLE>;
foreach $title (FICHIERIN);
{
if ($ligne eq $title){
print FICHIEROUT "$ligne"
}
}
close(FICHIEROUT);
close(FICHIERIN);
################################################
Essaye un truc dans ce genre :
################################################"
use strict;
use warnings;
open(FICHIERIN, "xxx.html");
open(FICHIEROUT, "<", "xxx.txt");
my $ligne = undef;
my $title = "<TITLE> * </TITLE>;
foreach $title (FICHIERIN);
{
if ($ligne eq $title){
print FICHIEROUT "$ligne"
}
}
close(FICHIEROUT);
close(FICHIERIN);
################################################
