Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 45 lines (37 sloc) 0.993 kb
c5f98b5 @holdenk Initial collection of shaaady perl scripts to do the spelling correction...
authored
1 #!/usr/bin/perl
2
3 use Bing::Search;
4 use Bing::Search::Source::Web;
5 use Net::GitHub;
6 use Text::SpellChecker;
7
8 my $token = "";
9 my $user = "";
10
11 my $a = "";
12 my $inc = 10;
13 my $offset = 0;
14 my $max = 100;
f6b6fe0 @holdenk murh
authored
15 @queries = ("blob/master/readme.md site:github.com",
16 "settings.py site:github.com",
17 "readme.txt site:github.com",
18 "readme.md site:github.com");
19 foreach my $query (@queries) {
20 while ($offset < $max) {
21 my $search = Bing::Search->new();
22 $search->AppId($a);
23 $search->Query();
24 my $source = Bing::Search::Source::Web->new();
25 $source->Web_Count(10);
26 $source->Web_Offset($offset);
27 my $hash = $source->params;
28 $hash->{'web.offset'} = $offset;
29 $source->params($hash);
30
31 $search->add_source($source);
32
33 my $response = $search->search();
34
35 foreach my $result ( @{$response->results} ) {
36 print $result->Title, " -> ", $result->Url, "\n";
37 }
38 $offset += $inc;
c5f98b5 @holdenk Initial collection of shaaady perl scripts to do the spelling correction...
authored
39 }
40 }
41 #
42 #print "Connecting to github!\n";
43 #my $github = Net::GitHub::V2->new(login => $user, token => $token);
44
Something went wrong with that request. Please try again.