Discussion :

[Doksuri]

Bonjour a tous.
je ne sais pas si je suis au bon endroit ici (merci de deplacer le sujet au besoin)

voila mon probleme : je suis recemment passe sur Irssi et j'adore.
le probleme est pour le scripting. en effet, c'est pas aussi simple qu'avec Mirc >_<
je me suis renseigne sur le site officiel. et j'ai choisis de coder en Perl.

mes bouts de codes tests en Perl fonctionnent bien quand je load le script, mais je n'arrive pas a trouver de tuto pour "inter-agir" avec les utilisateurs.

lien1 lien2
ce sont les 2 meilleurs (seuls?) tutos que j'ai trouve. le probleme c'est qu'ils n'expliquent pas trop les fonction,argument ect (enfin a mon gout).
je bloques entre autre sur les Irssi::signal_add('event privmsg', 'test');

donc, je recherches un tuto un peux plus pousse et/ou un petit coup de pousse :/

en vous remerciant a l'avance =)

[Jedai]

Donne nous un exemple de ce que tu voudrais faire.

--
Jedaï

[Doksuri]

merci de t'interesser a mon cas

pour debuter, je voudrais reagir (ecrire du texte) quand quelqu'un tape un mot
pour l'instant j'ai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Irssi::signal_add('event privmsg', 'test');
 
sub test {
        my ($server, $data, $nick, $address) = @_;
        my ($target, $text) = split(/ :/ , $data, 2);
        print "Ok !" if ($text =~ "test");
}
 
==> Irssi: Loaded script test_bot

il ne se passe rien >_<

sinon par la suite (mais chaque chose en son temps) reagir quand quelqu'un se connect au chan

[Jedai]

Utilise Irssi::print() au lieu de print()...

--
Jedaï

[Doksuri]

nope :/ ca change rien
j'ai essaye plusieurs syntaxes :
Irssi::print ("Ok !") if ($text =~ "test");
Irssi::print ("Ok !") if ($text = "test");
Irssi::print "Ok !" if ($text =~ "test");
Irssi::print "Ok !" if ($text = "test");
ect ...