История изменений
Исправление
fero,
(текущая версия)
:
#!/usr/bin/perl
use strict;
use warnings;
use Encode;
open(my $fp, "<foo");
my $line;
while($line= <$fp>){
$line= decode("utf8",$line);
print $line;
}
Сохрани скрипт в файл decode.pl, а свой файл скопируй в каталог с скриптом и обзови копию foo. Выполни команду:
perl decode.pl
Доложишь по форме о результатах.
Исходная версия
fero,
:
#!/usr/bin/perl
use strict;
use warnings;
use v5.10;
use Encode;
open(my $fp, "<foo");
my $line;
while($line= <$fp>){
$line= decode("utf8",$line);
print $line;
}
Сохрани скрипт в файл decode.pl, а свой файл скопируй в каталог с скриптом и обзови копию foo. Выполни команду:
perl decode.pl
Доложишь по форме о результатах.