在 Perl 中写入数据部分

Question

从 Perl 中的数据部分 __DATA__ 很容易读取。 以下代码使用预先存在的DATA 句柄：

foreach (<DATA>) {
    print("- $_");
}

__DATA__
1
2
The End of The End

产生：

- 1
- 2
- The End of The End

但是我还没有找到将数据写入该部分的任何巧妙方法。 例如，我尝试了以下方法：

use feature say;

say STDERR 'Some Error';
say STDOUT 'Some Message';
say DATA   'Some Data';

__DATA__
foo bar

STDOUT 和 STDERR 的打印按预期工作：

perl write.pl 2> /dev/null 
Some Message

但是打印到DATA 什么也没做：

tail -2 write.pl 
__DATA__
foo bar

我也看过 CPAN 的几个模块，但我总是只发现对 read 的支持，而不是 write。 感谢您的任何提示和帮助！

Answer 1

您可以使用文本编辑器写入 DATA 部分。

其他的都是dark magic。将输入和程序状态存储在单独的文件（或数据库）中。

Answer 2

这可能没有充分的理由，但方法如下：

#!/usr/bin/env perl

use strict;
use warnings;

seek DATA, 0, 2; # go to the end of the source file
my $offset = tell(DATA); # remember where that is

open my $f, '>>', $0 # open source file for appending
    or die $!;       # of course, you could use DATA instead of $f here

seek $f, $offset, 0; # go to the previously recorded position

print $f "This is a test\n"; # put something there

__DATA__

Answer 3

如果想法是在 DATA 可以输出的内容中添加内容，您可以将其关闭，然后在对包含附加文本的变量的引用上重新打开它，如下所示：

#!/usr/bin/perl

use strict;use warnings;

while(<DATA>) {
    print("- $_");
}

close DATA;

my $additional_text = 'test2';
open DATA, '<', \$additional_text;
$additional_text .= "\ntest3";
while(<DATA>) {
    print("- $_");
}

__DATA__
test

但我认为您需要使用之前包含在DATA部分中的原始数据。

Answer 4

写入 DATA 会更改脚本。这是一个坏主意，因为 DATA 在脚本本身上是开放的以供读取。这个程序说明了为什么这是一个坏主意。

#!/usr/bin/perl

use strict;
use warnings;

seek DATA, 0, 0;
while( <DATA> ){
    print;
}

__DATA__
1
2
3