A voir également:
- Problèmes en Perl
- Active perl - Télécharger - Édition & Programmation
- Perl extension - Forum Perl
- Perl ping ✓ - Forum Perl
- Can't open perl script "makefile.pl": no such file or directory - Forum Perl
- Perl push hash ✓ - 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);
################################################