Perl 在原始模式下写入内存内容

Question

我正在使用 perl 5.10.0 并尝试以原始模式在内存缓冲区中写入内容。但它不起作用。在下面的代码片段中，我尝试比较三种情况的结果

my ($s1, $s2);
open RAWF, '>:raw', \$s1;     #<-------  Opening in memory reference in raw mode
print RAWF 'Hello world in RAW MODE', "\n";

open FH, '>:raw', 'testfile.bin'; #<-------  Opening a file in raw mode
print FH 'Hello world in FILE', "\n";

open NORF, '>', \$s2;   #<-------  Opening in memory reference in normal mode
print NORF 'Hello world in NORMAL MODE', "\n";   

print $s1;    #<------ Doesnt print anything
print $s2;    #<------ Prints as expected

但是，如果我使用 perl 5.14.*，它就可以工作了。这是 perl 5.10.1 的限制吗？还是应该以其他方式完成？

Answer 1

显然这是一个在 Perl 5.12 时间框架内修复的错误。参见 perlbug #80764 - 即使最初的报告/修复没有具体提及您的问题，这个问题还是出现了 in the discussion on the bug并被卷入这些补丁中。