perl - 写入 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 中的几个模块，但我总是只发现对读取的支持，而不是写入。 感谢您的任何提示和帮助!

Answer 1

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

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