summaryrefslogtreecommitdiffstats
path: root/eliza.pl
diff options
context:
space:
mode:
Diffstat (limited to 'eliza.pl')
-rwxr-xr-xeliza.pl9
1 files changed, 9 insertions, 0 deletions
diff --git a/eliza.pl b/eliza.pl
new file mode 100755
index 0000000..baacaff
--- /dev/null
+++ b/eliza.pl
@@ -0,0 +1,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;