Gendai_JD.pl

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use RiveScript;

my $bot = RiveScript->new;

$bot->loadFile("./test.rs")
    or die "スクリプトの読み込みに失敗しました。";

$bot->sortReplies;

while (1) {
    print "zuma> ";
    chomp( my $msg = <STDIN> );

    my $reply = $bot->reply( 'localuser', $msg );
    say "さとみ> $reply";
}

test.rs

+ *
- うっそ～
- マジで！？
- わかる～
- ヤバくない？

会話

zuma> やっほー
さとみ> わかる～
zuma> おなかすいた
さとみ> うっそ～
zuma> ほんとー
さとみ> うっそ～
zuma> ほんとだよー
さとみ> わかる～
zuma> でしょー
さとみ> わかる～
zuma> 何か食べ行こうよ
さとみ> マジで！？
zuma> マジマジ
さとみ> マジで！？
zuma> おなかすいてない？
さとみ> うっそ～
zuma> なーんだ
さとみ> マジで！？
zuma>