Когда нормализуешь слова с помощью mystem — лучше использовать bidirectional pipe, вместо того, чтобы каждый раз открывать новый процесс.

Это очень просто.

Учитывая долбанутость mystem, мы будем отбрасывать слова с цифрами и ждать подольше. На всякий там. Пробелы он превращает в _, так что триггеры обоснованы.

#!/usr/bin/perl -w
use strict;
use FileHandle;
use IPC::Open2;
use IO::Select;
my $s = IO::Select->new();
my $pid = open2(*Reader, *Writer, «mystem -c -n -eUTF8″ );
$s->add(\*Reader);
my @words = (‘слона майна виражей’, ‘моськи’, ‘мартышки’,’троллоло’, ‘слова1’);
$| = 1;

foreach(@words){
next if /\d/;
print Writer $_.»\n»;
print qq[Sent word $_\n];
while(){
chop;
next if $_ eq q[_];
next if $_ eq q[\n];
print $_.»\n»;
last unless $s->can_read(1,5);
}
print «-«x10;
print «\n»;
}
close(Reader);
close(Writer);