LINUX.ORG.RU

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

Исправление 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
Доложишь по форме о результатах.