{"id":33,"date":"2003-03-23T15:19:01","date_gmt":"2003-03-23T13:19:01","guid":{"rendered":"http:\/\/frenchfragfactory.net\/ozh\/archives\/2003\/03\/23\/perl-google-client\/"},"modified":"2007-05-08T13:59:31","modified_gmt":"2007-05-08T11:59:31","slug":"perl-google-client","status":"publish","type":"post","link":"https:\/\/planetozh.com\/blog\/2003\/03\/perl-google-client\/","title":{"rendered":"Perl google client"},"content":{"rendered":"

This script queries Google and returns the first result (the one you'd get hitting the "I Feel Lucky" button). I did it because I wanted not to use LWP::Simple on a computer where the lib was missing. Consider this as is my minimalistic web client example.
\n(the fancy stuff that might confuse you, as "print NOTICE", are for a PsyBNC integration. Ignore them)<\/p>\n

\n\n\t\t
\n\n\t\t
\n\t\t\t\t\t\t< View plain text<\/span> ><\/a>\n\t\t\t\t\t<\/div>\n\n\t\t
perl<\/div>\n\n\t\t\n\t\t
\n\n\t<\/div>\n\t\n\t
\n\t\t
  1. #!\/usr\/bin\/perl<\/span><\/div><\/li>\n
  2.  <\/div><\/li>\n
  3. use<\/span> IO::<\/span>Socket<\/span>;<\/span><\/div><\/li>\n
  4. $nick<\/span> =<\/span> shift<\/span> (<\/span>@<\/span>ARGV<\/span>)<\/span>;<\/span><\/div><\/li>\n
  5.  <\/div><\/li>\n
  6. if<\/span> (<\/span>$#ARGV<\/span> <<\/span> 0<\/span> )<\/span> {<\/span><\/div><\/li>\n
  7. print<\/span> ":g00gle NOTICE $nick :Err\u00e2\u20ac\u00a6. google what ffs m8 ?\\n<\/span>"<\/span> ;<\/span><\/div><\/li>\n
  8. exit<\/span>;<\/span><\/div><\/li>\n
  9. }<\/span><\/div><\/li>\n
  10.  <\/div><\/li>\n
  11. $host<\/span> =<\/span> "www.google.com"<\/span>;<\/span><\/div><\/li>\n
  12. $document<\/span> =<\/span> "\/search?btnI=\\&<\/span>q="<\/span> .<\/span> join<\/span> (<\/span>"+"<\/span>,<\/span> @<\/span>ARGV<\/span>)<\/span>;<\/span><\/div><\/li>\n
  13. $kikoo<\/span>=<\/span>0<\/span>;<\/span><\/div><\/li>\n
  14.  <\/div><\/li>\n
  15. $EOL<\/span> =<\/span> "\\0<\/span>15\\0<\/span>12"<\/span>;<\/span><\/div><\/li>\n
  16. $BLANK<\/span> =<\/span> $EOL<\/span> x 2<\/span>;<\/span><\/div><\/li>\n
  17.  <\/div><\/li>\n
  18. $remote<\/span> =<\/span> IO::<\/span>Socket<\/span>::<\/span>INET<\/span>-><\/span>new<\/span>(<\/span><\/div><\/li>\n
  19. Proto =><\/span> "tcp"<\/span>,<\/span><\/div><\/li>\n
  20. PeerAddr =><\/span> $host<\/span>,<\/span><\/div><\/li>\n
  21. PeerPort =><\/span> "http(80)"<\/span>,<\/span><\/div><\/li>\n
  22. )<\/span>;<\/span><\/div><\/li>\n
  23.  <\/div><\/li>\n
  24. unless<\/span> (<\/span>$remote<\/span>)<\/span> {<\/span> die<\/span> "cannot connect to http daemon on $host"<\/span>;<\/span> }<\/span><\/div><\/li>\n
  25. $remote<\/span>-><\/span>autoflush<\/span>(<\/span>1<\/span>)<\/span>;<\/span><\/div><\/li>\n
  26. print<\/span> $remote<\/span> "GET $document HTTP\/1.0"<\/span> .<\/span> $BLANK<\/span>;<\/span><\/div><\/li>\n
  27. while<\/span> (<\/span> <<\/span>$remote<\/span>><\/span> )<\/span> {<\/span><\/div><\/li>\n
  28. if<\/span> (<\/span>m\/^location\/i<\/span> )<\/span> {<\/span><\/div><\/li>\n
  29. $tutu<\/span> =<\/span> $_<\/span> ;<\/span><\/div><\/li>\n
  30. $tutu<\/span>=~<\/span>s<\/span>\/^<\/span>location:<\/span> \/\/<\/span>i;<\/span><\/div><\/li>\n
  31. print<\/span> ":g00gle NOTICE $nick :$tutu"<\/span>;<\/span> $kikoo<\/span> =<\/span> 1<\/span>;<\/span><\/div><\/li>\n
  32. }<\/span> ;<\/span><\/div><\/li>\n
  33. }<\/span><\/div><\/li>\n
  34. close<\/span> $remote<\/span>;<\/span><\/div><\/li>\n
  35.  <\/div><\/li>\n
  36. print<\/span> ":g00gle NOTICE $nick :No result ffs m8 !\\n<\/span>"<\/span> unless<\/span> $kikoo<\/span>;<\/span><\/div><\/li>\n<\/ol>\t<\/div>\n\n<\/div>\n\n","protected":false},"excerpt":{"rendered":"

    Simple web client for google querying<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[2,42,41,9],"class_list":["post-33","post","type-post","status-publish","format-standard","hentry","tag-code","tag-google","tag-irc","tag-perl"],"_links":{"self":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/33","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/comments?post=33"}],"version-history":[{"count":0,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/33\/revisions"}],"wp:attachment":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/media?parent=33"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/categories?post=33"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/tags?post=33"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}