./c0de/perl/list_bing_results.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
#!/usr/bin/perl 
use LWP::UserAgent; 
 
print "Specify dork: "; 
$dork = <STDIN>; 
chomp($dork); 
for ($i = 0; $i < 1000; $i += 10) { 
	$b = LWP::UserAgent->new(agent => 'Mozilla/4.8 [en] (Windows NT 6.0; U)'); 
	$b->timeout(30); 
	$b->env_proxy; 
	$c = $b->get('http://www.bing.com/search?q=' . $dork . '&first=' . $i . '&FORM=PERE')->content; 
	$check = index($c, 'sb_pagN'); 
	while (1) { 
		$n = index($c, '<h3><a href="'); 
		if ($n == -1) { 
			last; 
		} 
		$c = substr($c, $n + 13); 
		$s = substr($c, 0, index($c, '"')); 
		print $s, "\n"; 
	} 
	if ($check == -1) { 
		last; 
	} 
} 
 
 

Back