История изменений
Исправление Mrak, (текущая версия) :
Разобрался. Оказывается у меня в начале файла было определено:
use open ':encoding(utf8)';
Заменил
open(my $f, ">$DIRNAME/$name") or $!;
open(my $f, ">:bytes","$DIRNAME/$name") or $!;
Исправление Mrak, :
Разобрался. Оказывается у меня в начале файла было определено:
use open ':encoding(utf8)';
Заменил
open(my $f, ">$DIRNAME/$name") or $!;
на
open(my $f, ">:bytes","$DIRNAME/$name") or $!;
Исходная версия Mrak, :
Разобрался. Оказывается у меня в начале файла было определено:
use open ':encoding(utf8)';
Заменил
open(my $f, ">$DIRNAME/$name") or $!;
на
open(my $f, ">:bytes","$DIRNAME/$name") or $!;
Теперь файл такого же размера как и изначальный