Move Lat module here, as it uses brain too
This commit is contained in:
eleksir
25
Phrases.txt
25
Phrases.txt
@@ -11,13 +11,13 @@
|
||||
* с префиксом в виде любого количества пробельных символов + имени бота + любое количество пробельных символов +
|
||||
опциональньная запятая + любое количество пробельных символов. После команды опциональная точка и любое
|
||||
количество пробельных символов.
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
|
||||
протокол) + команда + опциональная точка и любое количество пробельных символов.
|
||||
- Для публичных чатов допустимой являются нотации:
|
||||
* с префиксом в виде любого количества пробельных символов + имени бота + любое количество пробельных символов +
|
||||
опциональньная запятая + любое количество пробельных символов. После команды опциональная точка и любое
|
||||
количество пробельных символов.
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
|
||||
протокол) + команда + опциональная точка и любое количество пробельных символов.
|
||||
Ответ на эту фразу - слово "Pong." если фраза была на английском языке или "Понг.", если фраза была на русском языке.
|
||||
|
||||
@@ -28,15 +28,20 @@
|
||||
* с префиксом в виде любого количества пробельных символов + имени бота + любое количество пробельных символов +
|
||||
опциональньная запятая + любое количество пробельных символов. После команды опциональная точка и любое
|
||||
количество пробельных символов.
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
|
||||
протокол) + ping + опциональная точка и любое количество пробельных символов.
|
||||
- Для публичных чатов допустимой являются нотации:
|
||||
* с префиксом в виде любого количества пробельных символов + имени бота + любое количество пробельных символов +
|
||||
опциональньная запятая + любое количество пробельных символов. После команды опциональная точка и любое
|
||||
количество пробельных символов.
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
|
||||
протокол) + команда + опциональная точка и любое количество пробельных символов.
|
||||
Ответ на эту фразу - слово "Wat?" если фраза была на английском языке или "Шта?", если фраза была на русском языке.
|
||||
* lat или лат
|
||||
- Для приватных и публичных чатов допустимой является нотация:
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
|
||||
протокол) + команда + опциональная точка и любое количество пробельных символов.
|
||||
Ответ на эту фразу - одно произвольное предложение из предсгенерённого "мозга" с цепями Маркова.
|
||||
|
||||
* halp или хэлп
|
||||
- Для приватных чатов допустимой являются нотации:
|
||||
@@ -45,34 +50,34 @@
|
||||
* с префиксом в виде любого количества пробельных символов + имени бота + любое количество пробельных символов +
|
||||
опциональньная запятая + любое количество пробельных символов. После команды опциональная точка и любое
|
||||
количество пробельных символов.
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
|
||||
протокол) + команда + опциональная точка и любое количество пробельных символов.
|
||||
- Для публичных чатов допустимой являются нотации:
|
||||
* с префиксом в виде любого количества пробельных символов + имени бота + любое количество пробельных символов +
|
||||
опциональньная запятая + любое количество пробельных символов. После команды опциональная точка и любое
|
||||
количество пробельных символов.
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
|
||||
протокол) + команда + опциональная точка и любое количество пробельных символов.
|
||||
Ответ на эту фразу - слово "HALP!!!11".
|
||||
|
||||
* kde или кде
|
||||
- Для приватных и публичных чатов допустимой является нотация:
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
|
||||
протокол) + команда + опциональная точка и любое количество пробельных символов.
|
||||
Ответ на эту фразу - одно произвольное предложение из массива ответов на эту фразу.
|
||||
|
||||
* roll или dice или кости
|
||||
- Для приватных и публичных чатов допустимой является нотация:
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
|
||||
протокол) + команда + опциональная точка и любое количество пробельных символов.
|
||||
Ответ на эту фразу - "На первой кости выпало M, а на второй — N.", где M и N произвольные целые числа от 1 до 6
|
||||
включительно.
|
||||
|
||||
* ver или version или версия
|
||||
- Для приватных и публичных чатов допустимой является нотация:
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретны чат-
|
||||
* символ команды (по-умолчанию - восклицательный знак, задаётся в настройках модуля, отвечающего за конкретный чат-
|
||||
протокол) + команда + опциональная точка и любое количество пробельных символов.
|
||||
Ответ на эту фразу - номер версии ПО.
|
||||
Ответ на эту фразу - приблизительный номер версии ПО.
|
||||
|
||||
* кто все эти люди?
|
||||
- Для приватных и публичных чатов допустимой является нотация:
|
||||
|
||||
2
README
2
README
@@ -17,7 +17,7 @@ aleesa-craniac
|
||||
Ответ направляется в redis-канал, указанный в поле plugin входящего сообщения, если не предполагается некоей особой
|
||||
логики, связанной с easter egg поведением.
|
||||
|
||||
Формат протокола - см README от aleesa-misc.
|
||||
Формат протокола - см. README от aleesa-misc.
|
||||
|
||||
|
||||
Как это запустить?
|
||||
|
||||
26
bin/train_lat.pl
Normal file
26
bin/train_lat.pl
Normal file
@@ -0,0 +1,26 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
use 5.018;
|
||||
use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
use open qw (:std :utf8);
|
||||
use English qw ( -no_match_vars );
|
||||
use version; our $VERSION = qw (1.0);
|
||||
|
||||
my $workdir;
|
||||
|
||||
# before we run, change working dir
|
||||
BEGIN {
|
||||
use Cwd qw (chdir abs_path);
|
||||
my @CWD = split /\//xms, abs_path ($PROGRAM_NAME);
|
||||
if ($#CWD > 1) { $#CWD = $#CWD - 2; }
|
||||
$workdir = join '/', @CWD;
|
||||
chdir $workdir;
|
||||
}
|
||||
|
||||
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
|
||||
use Craniac::Lat qw (Train);
|
||||
|
||||
Train ();
|
||||
exit 0;
|
||||
1
cpanfile
1
cpanfile
@@ -1,3 +1,4 @@
|
||||
requires 'Carp', '==1.50';
|
||||
requires 'Cwd', '0';
|
||||
requires 'Cwd::utf8', '==0.011';
|
||||
requires 'Digest::SHA', '==6.02';
|
||||
|
||||
@@ -23,5 +23,10 @@
|
||||
"pid" : "/var/run/aleesa-craniac/aleesa-craniac.pid",
|
||||
|
||||
# maximal amount of message forwardings, to avoid endless loops
|
||||
"forwards_max" : 5
|
||||
"forwards_max" : 5,
|
||||
|
||||
"lat" : {
|
||||
"brain" : "data/lat/brain.sqlite",
|
||||
"src" : "data/lat.txt"
|
||||
}
|
||||
}
|
||||
|
||||
1336
data/lat.txt
Normal file
1336
data/lat.txt
Normal file
File diff suppressed because it is too large
Load Diff
@@ -29,6 +29,8 @@ use Math::Random::Secure qw (irand);
|
||||
use Text::Fuzzy qw (distance_edits);
|
||||
|
||||
use Conf qw (LoadConf);
|
||||
use Craniac::Lat qw (Lat);
|
||||
|
||||
use version; our $VERSION = qw (1.0);
|
||||
use Exporter qw (import);
|
||||
our @EXPORT_OK = qw (RunCraniac);
|
||||
@@ -247,6 +249,8 @@ my $parse_message = sub {
|
||||
$reply = sprintf 'На первой кости выпало %d, а на второй — %d.', irand (6) + 1, irand (6) + 1;
|
||||
} elsif ($m->{message} =~ /^\Q$m->{misc}->{csign}\E(ver|version|версия)$/ui) {
|
||||
$reply = 'Версия: Четыре.Технологическое_превью';
|
||||
} elsif ($m->{message} =~ /^\Q$m->{misc}->{csign}\E(lat|лат)\s*$/ui) {
|
||||
$reply = Lat ();
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
89
lib/Craniac/Lat.pm
Normal file
89
lib/Craniac/Lat.pm
Normal file
@@ -0,0 +1,89 @@
|
||||
package Craniac::Lat;
|
||||
# Крылатые латинские выражения спёрты с https://ru.wikipedia.org/wiki/Список_крылатых_латинских_выражений
|
||||
|
||||
use 5.018;
|
||||
use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
use open qw (:std :utf8);
|
||||
use English qw ( -no_match_vars );
|
||||
use Carp qw (cluck);
|
||||
use File::Basename qw (dirname);
|
||||
use File::Path qw (make_path);
|
||||
use Hailo;
|
||||
use Mojo::Log;
|
||||
|
||||
use Conf qw (LoadConf);
|
||||
|
||||
use version; our $VERSION = qw (1.0);
|
||||
use Exporter qw (import);
|
||||
our @EXPORT_OK = qw (Train Lat);
|
||||
|
||||
my $c = LoadConf ();
|
||||
my $brain = $c->{lat}->{brain};
|
||||
my $srcfile = $c->{lat}->{src};
|
||||
my $loglevel = $c->{'loglevel'} // 'info';
|
||||
my $log;
|
||||
|
||||
if (defined $c->{'log'}) {
|
||||
$logfile = $c->{'log'};
|
||||
} elsif (defined $c->{'debug_log'}) {
|
||||
$logfile = $c->{'debug_log'};
|
||||
}
|
||||
|
||||
if (defined $logfile) {
|
||||
$log = Mojo::Log->new (path => $logfile, level => $loglevel);
|
||||
} else {
|
||||
$log = Mojo::Log->new (path => '/dev/null', level => 'fatal');
|
||||
}
|
||||
|
||||
sub Train () {
|
||||
my $braindir = dirname $brain;
|
||||
|
||||
unless (-d $braindir) {
|
||||
make_path ($braindir) or do {
|
||||
cluck "Unable to create $braindir: $OS_ERROR";
|
||||
exit 1;
|
||||
};
|
||||
}
|
||||
|
||||
my $lat = Hailo->new (
|
||||
brain => $brain,
|
||||
# В нашем случае среднее количество слов в фразе равно 3
|
||||
order => 2
|
||||
);
|
||||
|
||||
$lat->train ($srcfile);
|
||||
my ($tokens, $expressions) = ($lat->stats ())[0,1];
|
||||
printf "Total tokens: %s\nTotal expressions: %s\n", $tokens, $expressions;
|
||||
$lat->save ();
|
||||
return;
|
||||
}
|
||||
|
||||
# Просто вернём ответ
|
||||
sub Lat () {
|
||||
my $braindir = dirname $brain;
|
||||
|
||||
unless (-d $braindir) {
|
||||
$log->error ("[ERROR] No lat module data: $braindir is absent! Train lat first.");
|
||||
return '';
|
||||
}
|
||||
|
||||
unless (-f $brain) {
|
||||
$log->error ("[ERROR] No lat module data: $brain is absent! Train lat first.");
|
||||
return '';
|
||||
}
|
||||
|
||||
my $lat = Hailo->new (
|
||||
brain => $brain,
|
||||
# В нашем случае среднее количество слов в фразе равно 3
|
||||
order => 2,
|
||||
save_on_exit => 0
|
||||
);
|
||||
|
||||
return $lat->reply ();
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
# vim: ft=perl noet ai ts=4 sw=4 sts=4:
|
||||
Reference in New Issue
Block a user