LINUX.ORG.RU

История изменений

Исправление KennyMinigun, (текущая версия) : 

Encode::_utf8_off($str);

Зря, надо так: 

binmode STDOUT, ':utf8';

Вот так у меня работает: 

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

open(my $fh, '<:encoding(cp866)', 'test.txt') or die "$!\n";;

binmode STDOUT, ':utf8';
for (my $c = 0; $c < 11; $c++) {
    my $str = <$fh>;
    last if (!$str);

    chomp $str;

    my $match = $str =~ m/L#48595284#МУЗ Нефтекумская ЦРБ#/ ? 'yes' : 'no';

print <<__LINE_SUMARY__;
$str
    MATCH: $match
__LINE_SUMARY__

}

Разница лишь в регулярке (отсутсвуют ^ и $).

Исходная версия KennyMinigun, : 

Encode::_utf8_off($str);

Зря, надо так: 

binmode STDOUT, ':utf8';

Вот так у меня работает: 

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

open(my $fh, '<:encoding(cp866)', 'test.txt') or die "$!\n";;

binmode STDOUT, ':utf8';
for (my $c = 0; $c < 11; $c++) {
    my $str = <$fh>;
    last if (!$str);

    chomp $str;

    my $match = $str =~ m/L#48595284#МУЗ Нефтекумская ЦРБ#/ ? 'yes' : 'no';

print <<__LINE_SUMARY__;
$str
    MATCH: $match
__LINE_SUMARY__

}