Как добавить символ LF (0A) в файл, используя Path :: Tiny?

Question

Этот подход не работает - просто добавляется строка "10"

use Modern::Perl;
use Path::Tiny qw( path );
use DateTime;

my $d1 = DateTime->new(year => 2019, month => 5, day => 6);
my @lines_to_add;

$lines_to_add[0]= "1|" . $d1->dmy('.') . "|";

$,="\n";
my $filename = "./load";
path($filename)->spew_raw(@lines_to_add);
path($filename)->append({binmode => ":raw"}, 10);

Я хотел бы сгенерировать некоторые данные и затем вставить их в таблицу (Informix работает на AIX).Однако среда требует загрузки символа LF в конце файлов.И я хотел бы использовать для этого просто библиотеку Path :: Tiny.(Я на Windows, используя Strawberry Perl)

Answer 1

Значение, создаваемое числовым литералом

10

, преобразуется в строку из двух символов

10

Чтобы получить строку, состоящую из символа 10, вы можете использовать любой из следующих символов:следующее:

"\n"
"\N{LINE FEED}"
"\N{LF}"
"\N{U+000A}"
"\x{0A}"
"\x0A"
"\012"
chr(10)
pack('C', 10)