All pastes #397678 Raw Edit

Perl !google script

public text v1 · immutable
·published 2007-03-16 17:42 UTC
rendered paste body
#!/usr/bin/perl

# Build a char->hex map
for (0..255)
{
    $escapes{chr($_)} = sprintf("%%%02X", $_);
}
IRC::add_command_handler ('gsearch', 'google');

sub google
{
    my $query = shift;

    $query =~ s/([^A-Za-z0-9\-_.!~*'()])/$escapes{$1}/g;
    IRC::command "/say http://www.google.com/search?q=$query";
   
    return 0;
}

__END__