Gå til innhold

Anbefalte innlegg

Videoannonse
Annonse

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?

Lenke til kommentar
  • 1 måned senere...

Bli med i samtalen

Du kan publisere innhold nå og registrere deg senere. Hvis du har en konto, logg inn nå for å poste med kontoen din.

Gjest
Skriv svar til emnet...

×   Du har limt inn tekst med formatering.   Lim inn uten formatering i stedet

  Du kan kun bruke opp til 75 smilefjes.

×   Lenken din har blitt bygget inn på siden automatisk.   Vis som en ordinær lenke i stedet

×   Tidligere tekst har blitt gjenopprettet.   Tøm tekstverktøy

×   Du kan ikke lime inn bilder direkte. Last opp eller legg inn bilder fra URL.

Laster...
  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...