{"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"<\/span>\u00a6.<\/span> google what ffs m8 ?<\/span>\\n<\/span>" ;<\/span><\/div><\/li>\n
  8. exit;<\/span><\/div><\/li>\n
  9. }<\/span><\/div><\/li>\n
  10.  <\/div><\/li>\n
  11. $host = "<\/span>www.<\/span>google.<\/span>com";<\/span><\/div><\/li>\n
  12. $document = "<\/span>\/<\/span>search?<\/span>btnI=<\/span>\\&<\/span>q<\/span>=<\/span>" . join ("<\/span>+<\/span>", @ARGV);<\/span><\/div><\/li>\n
  13. $kikoo=0;<\/span><\/div><\/li>\n
  14.  <\/div><\/li>\n
  15. $EOL = "<\/span>\\015\\012";<\/span><\/div><\/li>\n
  16. $BLANK = $EOL x 2;<\/span><\/div><\/li>\n
  17.  <\/div><\/li>\n
  18. $remote = IO::Socket::INET->new(<\/span><\/div><\/li>\n
  19. Proto => "<\/span>tcp",<\/span><\/div><\/li>\n
  20. PeerAddr => $host,<\/span><\/div><\/li>\n
  21. PeerPort => "<\/span>http(<\/span>80<\/span>)<\/span>",<\/span><\/div><\/li>\n
  22. );<\/span><\/div><\/li>\n
  23.  <\/div><\/li>\n
  24. unless ($remote) { die "<\/span>cannot connect<\/span> to http daemon on $host<\/span>"; }<\/span><\/div><\/li>\n
  25. $remote->autoflush(1);<\/span><\/div><\/li>\n
  26. print $remote "<\/span>GET $document<\/span> HTTP\/<\/span>1.0<\/span>" . $BLANK;<\/span><\/div><\/li>\n
  27. while ( <$remote> ) {<\/span><\/div><\/li>\n
  28. if (m\/^location\/i ) {<\/span><\/div><\/li>\n
  29. $tutu = $_ ;<\/span><\/div><\/li>\n
  30. $tutu=~s\/^location: \/\/i;<\/span><\/div><\/li>\n
  31. print "<\/span>:<\/span>g00gle NOTICE $nick<\/span> :<\/span>$tutu<\/span>"; $kikoo = 1;<\/span><\/div><\/li>\n
  32. } ;<\/span><\/div><\/li>\n
  33. }<\/span><\/div><\/li>\n
  34. close $remote;<\/span><\/div><\/li>\n
  35.  <\/div><\/li>\n
  36. print "<\/span>:<\/span>g00gle NOTICE $nick<\/span> :<\/span>No result ffs m8 !<\/span>\\n<\/span>" unless $kikoo;<\/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}]}}