googlism is the obsession of the moment. Here is a script that will query http://www.googlism.com and format the results as an RSS channel.
--
જલધર
#!/usr/bin/env perl
use strict;
use warnings;
use LWP::UserAgent;
use XML::RSS;
my $input = join ' ', @ARGV;
$input =~ /(who|what|where|when)\s*(is)?\s*(\w+)/i;
my $type = $1;
my $ism = $3;
unless ($ism)
{
die "Must specify a term to search for.\n";
}
if ($type =~ /who/i)
{
$type = 1;
}
elsif ($type =~ /what/i)
{
$type = 2;
}
elsif ($type =~ /where/i)
{
$type = 3;
}
elsif ($type =~ /when/i)
{
$type = 4;
}
else
{
die "Unknown query type! Should be: who, what, where, or when.\n";
}
my $ua = LWP::UserAgent->new();
my $response = $ua->post('http://www.googlism.com/index.htm',
{ ism => $ism, type => $type }, );
unless($response->is_success)
{
die "$response->status_line\n";
}
my $googlism = $response->content;
my $output = XML::RSS->new(version => '0.91');
$output->channel(
title => "Googlism for: $ism",
link => "http://www.googlism.com/index.htm?ism=$ism&type=$typ
+e",
language => 'en',
description => 'Googlism.com will find out what Google.com thinks of
+ you',
);
while ($googlism =~ /($ism is.+)<br>/g)
{
$output->add_item(title => $1);
}
print $output->as_string;
__END__
=pod
=head1 NAME
googlism -- Query www.googlism.com
=head1 SYNOPSIS
B<googlism who|what|where|when [is] searchterm >
=head1 DESCRIPTION
Googlism was created as a fun tool to see what Google "thinks" of cert
+ain
topics and people. Of course, the results are not really Google's opin
+ion,
they're yours, the web site owners of the world. Within the Google res
+ults are
thousands of your thoughts and opinions about thousands of different t
+opics
and people, we simply search Google and let you know what website owne
+rs think
about the name or topic you suggested.
This script lets you query www.googlism.com and formats the results of
+ your
query in RSS 0.91 XML format. You can then postprocess this in variou
+s ways
such as converting it to HTML to add to your web site.
=head1 INSTALLATION
Make the script executable. You will also need the B<LWP>, and B<XML:
+:RSS>
packages from CPAN.
=head1 SEE ALSO
L<http://www.googlism.com/>
=head1 AUTHOR
Jaldhar H. Vyas E<lt>jaldhar@braincells.comE<gt>
=head1 LICENSE
This code is free software under the Crowley Public License ("Do what
thou wilt shall be the whole of the license")
=head1 VERSION
1.0 -- Nov 10, 2002
=cut
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.