bonjour ! je cherche un script en perl qui cherche des adresses mails dans une page web et qui les mets dans un fichier texte... le tout via une recherche google... j ai deja le début du script mais apres je suis coincé je vois pas comment faire... j ai deja un script qui execute une recherche sur google et qui cherche un "dork" spécial, mais je ne connai pas de script pour mettre dans un fichier texte les mots mis en gras lors de la recherche google... je vous met le début du code...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl
if(!$ARGV[0]){
  print "Usage #perl $0 <dork>\n";
  exit;
}
 
require LWP::UserAgent;
use HTTP::Message;
 
$proxy='http://127.0.0.1:2221/';
$dork=$ARGV[0];
$ua = LWP::UserAgent->new;
$ua->timeout(30);
$ua->agent("MSIE/6.0 Windows");
$ua->proxy(http => $proxy) if defined($proxy);
$counter=0;
print "your dork (example : *@hotmail.com) : $dork\n";
$grab="";
while($grabx !~ /grabbing.../)
{
  $googleurl="http://www.google.com/search?q=$dork&hl=id&lr=&start=$a&sa=N";