mirror of
https://github.com/pragma-/pbot.git
synced 2024-11-18 01:49:53 +01:00
44 lines
754 B
Perl
44 lines
754 B
Perl
|
#!/usr/bin/perl -w -I /home/msmud/lib/lib/perl5/site_perl/5.10.0/
|
||
|
|
|
||
|
|
# Quick and dirty by :pragma
|
||
|
|
|
||
|
|
use Google::Search;
|
||
|
|
|
||
|
|
my ($nick, $arguments, $matches);
|
||
|
|
|
||
|
|
$matches = 3;
|
||
|
|
$nick = shift @ARGV;
|
||
|
|
|
||
|
|
if ($#ARGV < 0)
|
||
|
|
{
|
||
|
|
print "Usage: google [number of results] query\n";
|
||
|
|
die;
|
||
|
|
}
|
||
|
|
|
||
|
|
$arguments = join(" ", @ARGV);
|
||
|
|
|
||
|
|
if($arguments =~ m/^([0-9]+)/)
|
||
|
|
{
|
||
|
|
$matches = $1;
|
||
|
|
$arguments =~ s/^$1//;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $search = Google::Search->Web(query => $arguments, referrer => 'http://blackshell.com');
|
||
|
|
|
||
|
|
print "$nick: ";
|
||
|
|
|
||
|
|
if(not $search->first) {
|
||
|
|
print $search->error->reason, "\n";
|
||
|
|
exit;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $comma = "";
|
||
|
|
while( my $result = $search->next) {
|
||
|
|
print $comma, $result->titleNoFormatting, ": ", $result->uri;
|
||
|
|
$comma = " -- ";
|
||
|
|
last if --$matches <= 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
print "\n";
|
||
|
|
|