mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-23 11:12:42 +01:00
47 lines
766 B
Perl
Executable File
47 lines
766 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# Quick and dirty by :pragma
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
use Google::Search;
|
|
use HTML::Entities;
|
|
|
|
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, decode_entities $result->titleNoFormatting, ": ", $result->uri;
|
|
$comma = " -- ";
|
|
last if --$matches <= 0;
|
|
}
|
|
|
|
print "\n";
|