如何使用Path :: Tiny将LF（0A）字符附加到文件？

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);

我想生成一些数据，然后将它们插入表中（在AIX上运行的Informix）。但是，环境要求从文件末尾加载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)