use strict;
use POSIX;
open(FH,"fichier.html");
my @urlList=();
while(my $ligne=<FH>){
my $url="";
if ($ligne=~ /s+src=(.*?)(>|s+)/i){
$url=$1;
} elsif ($ligne =~ /s+onClick=(.*?)(>|s+)/i) {
$url=$1;
}
if ($url ne ""){
$url=~s/^"//g;
$url=~s/"$//g;
push(@urlList,$url);
}
}
close(FH);
foreach my $url (@urlList){
print "$url
";
}
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 5 invités
.: Nous contacter :: Flux RSS :: Données personnelles :. |