Обожаю простые решения.
Задача: разделить текстовые записи и выделить из них те, которые написаны на русском языке.
Решение:
my $without_ru = $text;
$without_ru =~ s{[а-я]}{}gi;
next if length($without_ru) > 0.6 * length($text);
Обожаю простые решения.
Задача: разделить текстовые записи и выделить из них те, которые написаны на русском языке.
Решение:
my $without_ru = $text;
$without_ru =~ s{[а-я]}{}gi;
next if length($without_ru) > 0.6 * length($text);
Комментировать