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.
(the fancy stuff that might confuse you, as "print NOTICE", are for a PsyBNC integration. Ignore them)
- #!/usr/bin/perl
- use IO::Socket;
- $nick = shift (@ARGV);
- if ($#ARGV < 0 ) {
- print ":g00gle NOTICE $nick :Err…. google what ffs m8 ?\n" ;
- exit;
- }
- $host = "www.google.com";
- $document = "/search?btnI=\&q=" . join ("+", @ARGV);
- $kikoo=0;
- $EOL = "\015\012";
- $BLANK = $EOL x 2;
- $remote = IO::Socket::INET->new(
- Proto => "tcp",
- PeerAddr => $host,
- PeerPort => "http(80)",
- );
- unless ($remote) { die "cannot connect to http daemon on $host"; }
- $remote->autoflush(1);
- print $remote "GET $document HTTP/1.0" . $BLANK;
- while ( <$remote> ) {
- if (m/^location/i ) {
- $tutu = $_ ;
- $tutu=~s/^location: //i;
- print ":g00gle NOTICE $nick :$tutu"; $kikoo = 1;
- } ;
- }
- close $remote;
- print ":g00gle NOTICE $nick :No result ffs m8 !\n" unless $kikoo;
Shorter URL
Want to share or tweet this post? Please use this short URL: http://ozh.in/a
C'est bon j'ai reussi, et j'ai fait mon propre script pour google :)
Voici le lien si ça peux interesser quelqu'un :
http://scripts.hollywoud.net/perl-psybnc/google.pl.txt
Salut, j'aurais aimé savoir ce que tu mettais dans ton Psybnc pour lancer le script perl et renvoyer le resultat sur irc. Merci :)
Salut, j'aurais aimé savoir ce que tu mettais dans ton Psybnc pour lancer le script perl et renvoyer le resultat sur irc. Merci :)
Désolé pour la répetition :)
ca depend si tu veux que le script soit accessible à un user ou a tout le monde
http://www.psybnc.info/ y'a des exemples des 2 cas