3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-26 13:59:47 +01:00
pbot/modules/g.pl

51 lines
836 B
Perl
Raw Normal View History

#!/usr/bin/perl
2011-12-06 17:46:39 +01:00
# Quick and dirty by :pragma
use warnings;
use strict;
2011-12-06 17:46:39 +01:00
use Google::Search;
use HTML::Entities;
2011-12-06 17:46:39 +01:00
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) {
if($search->error) {
2011-12-06 17:46:39 +01:00
print $search->error->reason, "\n";
} else {
print "No results found\n";
}
2011-12-06 17:46:39 +01:00
exit;
}
my $comma = "";
while( my $result = $search->next) {
print $comma, decode_entities $result->titleNoFormatting, ": ", $result->uri;
2011-12-06 17:46:39 +01:00
$comma = " -- ";
last if --$matches <= 0;
}
print "\n";