Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

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 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('', { 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 => "$ism&type=$typ +e", language => 'en', description => ' will find out what thinks of + you', ); while ($googlism =~ /($ism is.+)<br>/g) { $output->add_item(title => $1); } print $output->as_string; __END__ =pod =head1 NAME googlism -- Query =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 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<> =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

Replies are listed 'Best First'.
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.

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

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (2)
As of 2022-07-02 12:16 GMT
Find Nodes?
    Voting Booth?
    My most frequent journeys are powered by:

    Results (103 votes). Check out past polls.