Bonjour
Je suis debutant , je viens de créer un BOT Irc en perl,
Jusqu'ici tout va bien il se connecte .....

Maintenant je voudrais le faire parler

voila mon bout de code

sub on_public
{
my ($conn, $event) = @_;
my $text = $event->{'args'}[0];
my $range = 2;
my $random_number = int(rand($range));
$conn->privmsg($channel, $non-definie');
}

Donc en gros en fonction des mots sur le chan, je voudrais que le bot réponde ...

ex:
<moi> : Salut
<réponse du bot> : Salut toi

En gros je souhaite récupérer des mots tel que Salut qui se trouve dans la variable $text(salut) ensuite je voudrais lister tout les documents texte qui auront comme nom la variable $text (salut) si celui-ci existe alors je compte le nombre de ligne dans le fichier $text(Salut.txt) [sinon le bot reste inactif ] je definie la variable $range en fonction du resultat puis je fais un $random_number (my $random_number = int(rand($range)); )
et j'affiche le resultat ( $conn->privmsg($channel, $non-definie'); )

J'espere que vous allez pouvoir me donner un coup de pouce .....

Merci d'avance