in reply to Yahoo! Logo

Nice. But it doesn't use Yahoo::Search:
#!/usr/bin/env perl
use LWP::Simple;
$url = "http://api.search.yahoo.com/WebSearchService/V1/webSearch?appi
+d=YahooDemo&query=@{[shift]}&results=2";
$results = get $url || die "Web services request failed: $!";
%entities = qw(&lt; < &gt; > &amp; & &#039; ' &quot; ");
foreach (keys %entities) { $results =~ s/$_/$entities{$_}/g; }
print $results;

[download]
- is this some sort of pimping to bump up the install count of Yahoo::Search?

Replies are listed 'Best First'.
Re^2: Yahoo! Logo
by pemungkah (Priest) on Jul 18, 2007 at 01:01 UTC
    No, this is me misremembering my own code. :) And a great illustration of why obfuscated code is not the best code! I think my original version was Yahoo::Search-based, but now I recall that I switched it because I wanted it to work with modules people would normally have installed anyway.
[reply]

In Section Obfuscated Code