Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Jaldhar is largely correct on this

by jaldhar (Vicar)
on Nov 10, 2002 at 05:22 UTC ( #211727=CUFP: print w/ replies, xml ) Need Help??

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

Comment on Jaldhar is largely correct on this
Download Code
Re: Jaldhar is largely correct on this
by sauoq (Abbot) on Nov 11, 2002 at 03:36 UTC

    A big ++ for introducing to me this googlism thing. I entered "sauoq" and it was right on...

    Googlism for: sauoq

    sauoq is bones my two cents aren't worth a dime
    sauoq is tempted to suggest switching to unix

    I don't think I could have summed myself up any better than that.

    -sauoq
    "My two cents aren't worth a dime.";
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://211727]
Approved by rob_au
Front-paged by crazyinsomniac
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2014-10-21 01:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (95 votes), past polls