Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

IRC Bot - Problem sa...ne znam ni sam kako da ga nazovem :)

[es] :: Perl :: IRC Bot - Problem sa...ne znam ni sam kako da ga nazovem :)

[ Pregleda: 2942 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

1r0nM4n
Nenad Vasić
Web Developer
Beograd

Član broj: 55970
Poruke: 441
*.174.eunet.yu.

ICQ: 303614173
Sajt: www.nenadvasic.com


+1 Profil

icon IRC Bot - Problem sa...ne znam ni sam kako da ga nazovem :)20.08.2006. u 19:47 - pre 181 meseci
Pokušavam da napravim IRC bot u perlu, ali imam jedan problem.

Hoću da napravim da bot proverava šta je napisano na nekom kanalu, i ako je napisana neka određena reč, da bot izvrši nešto...
Ovako izgleda text koji server šalje korisniku (botu):
Code:
:[email protected] PRIVMSG #neki_kanal:neki text

Našao sam na netu sledeći kôd:
Code:
$answer =~ m/^\:(.*?)\!(.*?)\@(.*?) PRIVMSG (.*?) :(.*?)$/;
        $xnick = $1;
        $xident = $2;
        $xhost = $3;
        $xchannel = $4;
        $xtext = $5;

I u onom primeru gore, to bi izgledalo ovako:
Code:
$xnick = "nickname";
$xident = "ident";
$xhost = "hostname.com";
$xchannel = "#neki_kanal";
$xtext = "neki text";

Sada hoću da napišem da bot proverava neku od ovih vrednosti (na primer, $xtext):
Code:
if($xtext eq "test") {
            print $con "privmsg $xchannel :true\n";
        } else {
            print $con "privmsg $xchannel :false\n";
        }
Ovaj kôd mi uvek vraća false, iako se napiše na IRC-u test.
Kada uradim:
Code:
print "$xtext";
Normalno se ispisuje test, znači da nije dobar if..
Takođe sam probao:
Code:
if($xtext =~ m/^test$/)
I ovo ne radi lepo.

Gde grešim, i da li ovo uopšte može da se izvede ovako?
Ako sam malo nejasno napisao sve ovo, slobodno pitajte da pojasnim ;)

p0z

p.s. @moderatori, slobodno promenite topic ako nađete nešto prikladnije...
 
Odgovor na temu

[es] :: Perl :: IRC Bot - Problem sa...ne znam ni sam kako da ga nazovem :)

[ Pregleda: 2942 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.