2016-04-30 23:53:26 +02:00
|
|
|
#!/usr/bin/env perl
|
|
|
|
use 5.010;
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use FindBin qw($Bin);
|
|
|
|
|
|
|
|
use lib $Bin;
|
|
|
|
|
2016-07-04 19:29:04 +02:00
|
|
|
use MarkovBot::Learning;
|
2016-04-30 23:53:26 +02:00
|
|
|
|
|
|
|
my $brain_file = $ARGV[0];
|
|
|
|
open BRAIN, $brain_file or die $!;
|
2016-07-04 19:29:04 +02:00
|
|
|
learn $_ while <BRAIN>;
|
2016-04-30 23:53:26 +02:00
|
|
|
close BRAIN;
|