Irssiscripts og perl

[sete]

Hei!

 

Jeg prøver å lage et lite irssiscript til min bot som skal svare automatisk og tilfeldig på bestemte msg's. Jeg lurer på om det er noen som har en nyttig side for irssiscripts (tutorials, howto's osv i forbindelse med perl og irssi)

[BeCo]

www.hotscripts.com

[BeCo]

http://www.hotscripts.com/Perl/Tips_and_Tutorials/

http://www.hotscripts.com/Perl/Scripts_and_Programs/

[sete]

Takk skal du ha! Skal sjekke ut de sidene nå

[sete]

use Irssi;



sub event_privmsg {

my ($server, $data, $nick, $mask, $target) =@_;

my ($target, $text) = $data =~ /^(S*)s:(.*)/;

       if ( $text =~ /^gay$/i ) {

               @svar = (1 .. 6);

               $key = int (rand($#svar));

               reply = ( "1" => nerd, "2" => "lol", "3" => "lol njub", "4" => jj, "5" => roflol, "6" => omg );

               $server->command ( "msg $target $lol{$key}" );



       }

       else {

               my ($gimmie) = $text =~ /!(.*)/;

               $server->command ( "action $target Gets $nick $gimmie 0032<%)");

       }

}

Irssi::signal_add('event privmsg', 'event_privmsg');

Jeg prøver å lage et script slik at min klient kan svare automatisk, men med tilfeldige svar. Jeg er helt fersk på Perl og jeg håper at noen av dere kan hjelpe meg litt med dette. Koden ovenfor fungerer ikke, hva er feil?

[sete]

Fikk det til å fungere, "boten" svarer når jeg skriver gay. hva må jeg gjøre hvis den skal svare på f.eks "din gay!"?

[Torbjørn]

ikke så lett å si..

 

hvis du sjekker at den får inn "gay" kan du vel bare endre den til å sjekke "din gay!" istdet...

[Egil.B]

Kunne ikke postet eksakt url til eventuelle irssi/perl-howtos du har brugt? Lyst til å lære meg litt selv :wink: