windows - 在 Perl6::Form 中使用 Windows 行尾

Question

我正在使用 Perl6::Form 生成表格并将其输出到文本文件。无论我做什么，似乎都无法输出 Windows 行尾。我试过local $OUTPUT_RECORD_SEPARATOR = "\r\n"; 我试过附加\r\n到我的格式字符串。没有骰子。

我的代码：

use English;

local $OUTPUT_RECORD_SEPARATOR = qq{\r\n};

my @column_headings = @{ shift $args->{'data'} };
my @rows            = @{ $args->{'data'} };

my $header_format = join q{|}, (q/{]]]][[[[}/) x scalar @column_headings;
my $field_format  = join q{|}, (q/{]]]]]]]]}/) x scalar @column_headings;

# formatting starts with headers followed by double line
my @format_data = ( $header_format, @column_headings, );
push @format_data, join q{|}, (q/==========/) x scalar @column_headings;
foreach my $row (@rows) {
    push @format_data, ( $field_format, @{$row} );
}
my $text = form @format_data;

my ( $fh, $tempfile ) = File::Temp::tempfile;
$fh->print($text) or croak(qq/Failed to write to tempfile: $OS_ERROR/);
close $fh;

Answer 1

根据文档，

如果二进制模式可用，File::Temp 返回的文件将以二进制模式打开。如果不正确，请使用 C 函数更改文件句柄的模式。

因此，在打开之后但在打印之前使用以下内容重新添加通常存在于 Windows 中打开的文件句柄上的 :crlf。

$fh->binmode(':crlf');