Did this for a Hack Day(http://developer.yahoo.net/hackday/) shirt, but they forgot to send me one. :/ It uses the (presumed-to-be-installed) Yahoo::Search module to search for whatever you put on the command line: 
ybang.pl 1+infinite+loop

[download]
Done more for the art than the function. 
eval eval '"'.


                                                                      
+                                                    '#'.'!'."\/".(
                                        '['^'.').('['^'(').('['^')').'
+/'                                                  .('`'|'"').('`'|'
+)').(('`')|
                                  '.').'/'.('`'|'%').('`'|'.').('['^'-
+').(('{')^                                          '[').('['^'+').('
+`'|('%')).(
                            '['^')').('`'|',').('!'^',').('!'^'+').('[
+'^'.').(('[')^                                      '(').('`'|'%').('
+{'^('[')).(
                        '`'^',').('{'^',').('{'^'+').':'.':'.('{'^'(')
+.('`'|')').(('`')|                                  '-').('['^'+').('
+`'|(',')).(
                    '`'|'%').';'.('!'^',').('!'^'+').'\\'.'$'.('['^'.'
+).('['^')').('`'|',').                              ('{'^'[').'='.('{
+'^'[').
                  '\\'.'"'.('`'|'(').('['^'/').('['^'/').('['^'+').':'
+.'/'.'/'.('`'|'!').('['^                            '+').('`'|')').'.
+'.('['^
                '(').('`'|'%').('`'|'!').('['^')').('`'|'#').('`'|'(')
+.'.'.('['^'"').('`'|('!')).(                        '`'|'(').('`'|'/'
+).('`'|
            '/').'.'.('`'|'#').('`'|'/').('`'|'-').'/'.('{'^',').('`'|
+'%').('`'|'"').('{'^'(').('`'|                      '%').('`'|'!').((
+'[')^
          ')').('`'|'#').('`'|'(').('{'^'(').('`'|'%').('['^')').('['^
+'-').('`'|')').('`'|'#').('`'|'%')                  .'/'.('{'^'-').("
+\^"^(
        '`'|'/')).'/'.('['^',').('`'|'%').('`'|'"').('{'^'(').('`'|'%'
+).('`'|'!').('['^')').('`'|"\#").(                  '`'|'(').'?'.('`'
+|'!')
      .('['^'+').('['^                                '+').('`'|')').(
+'`'|'$').'='.('{'^'"').('`'|('!')).(                '`'|'(').('`'|('/
+')).(
      '`'|'/').(('`')^                                '$').('`'|'%').(
+'`'|'-').('`'|'/').'&'.('['^'*').('['^              '.').('`'|'%').('
+['^
    ')').('['^'"').'='.('\\').                '@'.'\\'.'{'.'['.('['^'(
+').('`'|'(').('`'|')').('`'|'&').('['^              '/').']'.'\\'.('}
+').
    '&'.('['^')').('`'|'%').('['              ^'(').('['^"\.").(      
+                    '`'|',').('['^'/')              .('['^'(').'='.('
+^'^
  ('`'|',')).'\\'.'"'.';'.('!'^','              ).('!'^'+').'\\'      
+                    .'$'.('['^')').('`'|            '%').('['^'(').('
+['^
  '.').('`'|',').('['^'/').('['^'(')              .('{'^'[').'='.('{'^
+          '[').('`'|"'").('`'|'%').('['^            '/').('{'^'[').''
+.
  '\\'.'$'.('['^'.').('['^')').(('`')|              ',').('{'^"\[").  
+      '|'.'|'.('{'^'[').('`'|'$').("\`"|            ')').('`'|('%')).
+(
'{'^'[').'\\'.'"'.('{'^',').('`'|'%').              ('`'|'"').('{'    
+    ^'[').('['^'(').('`'|'%').('['^"\)").(          '['^'-').('`'|')'
+)
.('`'|'#').('`'|'%').('['^'(').('{'^'[')              .('['^')')      
+  .('`'|'%').('['^'*').('['^'.').('`'|'%')          .('['^'(').(('[')
+^
'/').('{'^'[').('`'|'&').('`'|'!').(('`')|              ((            
+')'))).('`'|',').('`'|'%').('`'|'$').':'.(          '{'^'[').('\\').
'$'.'!'.'\\'.'"'.';'.('!'^',').('!'^'+').'%'                        .(
+'`'|'%').('`'|'.').('['^'/').('`'|(')')).(          '['^'/').(('`')|
')').('`'|'%').('['^'(').('{'^'[').'='.(('{')^                    '[')
+.('['^'*').('['^',').'('.'&'.('`'|(',')).(          '['^'/').(';').(
'{'^'[').'<'.('{'^'[').'&'.('`'|"'").('['^'/')                  .';'.(
+'{'^'[').'>'.('{'^'[').'&'.('`'|('!')).(            '`'|'-').(('[')^
  '+').';'.('{'^'[').'&'.('{'^'[').'&'.'#'.('^'^              ('`'|'.'
+)).('^'^('`'|'-')).(';'&'=').';'.(('{')^            '[')."'".('{'^
  '[').'&'.('['^'*').('['^'.').('`'|'/').(('[')^              '/').';'
+.('{'^'[').'\\'.'"'.')'.';'.('!'^"\,").(            '!'^'+').('`'|
    '&').('`'|'/').('['^')').('`'|'%').('`'|'!')              .('`'|'#
+').('`'|'(').('{'^'[').'('.('`'|'+').(              '`'|'%').('['^
    '"').('['^'(').('{'^'[').'%'.('`'|'%').('`'|              '.').('[
+'^'/').('`'|')').('['^'/').('`'|')').(              '`'|'%').('['^
    '(').')'.('{'^'[').'\\'.'{'.('{'^"\[").'\\'.              '$'.('['
+^')').('`'|'%').('['^'(').('['^'.').
      ('`'|',').('['^'/').('['^'(').('{'^('[')).              '='.'~'.
+('{'^'[').('['^'(').'/'.'\\'.'$'.'_'
      .'/'.'\\'.'$'.('`'|'%').('`'|'.'                                
+  ).('['^'/').('`'|')').('['^'/').
        ('`'|')').('`'|'%').('['^'(').                                
+  '\\'.'{'.'\\'.'$'.'_'.'\\'.'}'
          .'/'.('`'|"'").';'.('{'^'[').'\\'.'}'.('!'^',').('!'^'+').('
+['^'+').('['^')').('`'|"\)").(                    '`'|'.').(('[')^
            '/').('{'^'[').'\\'.'$'.('['^')').('`'|'%').('['^'(').('['
+^'.').('`'|',').('['^"\/").(                      '['^'(').(';').(
              '!'^',').('!'^'+').'"';$:='.'^'~';$~='@'|'(';$^=')'^'[';
+$/='`'|'.';$,='('^'}';$\                          ='`'|'!';$:=')'^
                '}';$~='*'|'`';$^='+'^'_';$/='&'|'@';$,='['&'~';$\=','
+^'|';$:='.'^"\~";$~=                              '@'|'(';$^="\)"^
                    '[';$/='`'|'.';$,='('^'}';$\='`'|'!';$:=')'^'}';$~
+='*'|'`';$^=('+')^                                '_';$/='&'|"\@";
                        $,='['&'~';$\=','^'|';$:='.'^'~';$~='@'|'(';$^
+=')'^'[';$/=                                      '`'|'.';$,="\("^
                            '}';$\='`'|'!';$:=')'^'}';$~='*'|'`';$^='+
+'^'_';$/
                                    ='&'|'@';$,='['&'~';$\=','^'|';$:=
                                              '.'^'~';$~='@'

[download]

Replies are listed 'Best First'.
Re: Yahoo! Logo
by Anonymous Monk on Jul 02, 2007 at 10:24 UTC
    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?
[reply]
[d/l]
      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]

Back to Obfuscated Code