summaryrefslogtreecommitdiffstats
path: root/eliza.pl
blob: baacafffe77afa81d36f12dd11b0b0dec93e0639 (plain)
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use Chatbot::Eliza;
$bot = new Chatbot::Eliza("Eliza", "");
print $bot->{initial}->[0] . "\n";
while (my $message = <STDIN>) {
	$message = $bot->transform($message);
	print "$message\n";
}
exit;