A voir également:
- Problèmes en Perl
- Denon perl pro test - Guide
- Active perl - Télécharger - Édition & Programmation
- Transformer photo en perle hama - Forum Graphisme
- /Usr/bin/env: ‘perl\r’: no such file or directory ✓ - Forum Linux / Unix
- Can't open perl script "makefile.pl": no such file or directory - 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);
################################################