стало необходимым пролистать длинный текст в Былинах, вот может кому пригодится
Код:
hook {
# функции передается prompt, пришедший из mud'а. Изменяй, как хочешь.
my $prompt = shift;
if ($prompt =~ /Листать \:.*?\((\d+)\/(\d+)\)\./) {
my $nextList = $1+1;
sendl($nextList);
}
$prompt;
} "prompt";