Perlのデータセクションへの書き込み

Question

Perlのデータセクション__DATA__から読みやすいです。

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

__END__ 
1 
2 
The End of The End 

を生成します：

- 1 
- 2 
- The End of The End 

私はセクションにデータを書き込むのいずれかのきちんとした方法を発見していないが 次のコードは、既存のDATAハンドルを使用しています。 たとえば、私は次のことを試してみた：expectetとしてSTDOUTとSTDERR作品に

use feature say; 

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

__DATA__ 
foo bar 

印刷：

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

しかしDATAへの印刷は全く何もしない：

tail -2 write.pl 
__DATA__ 
foo bar 

私はCPANからいくつかのモジュールも見てきましたが、私はいつものサポートを見つけました。ではなく、と書いてください。です。 ヒントや助けてくれてありがとう！

Answer 1

テキストエディタでDATAセクションに書き込むことができます。

他のすべてはdark magicです。入力とプログラム状態を別々のファイル（またはデータベース）に格納する。

Answer 2

アイデアは、データが出力、あなたはこのように、追加のテキストを含む変数を参照するには、その後、それを閉じて再度開くことができ何に物事を追加する場合：

#!/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 3

DATAに書き込むと、スクリプトが変更されます。これは、データ自体がスクリプト自体の読み取り用に開かれているため、悪い考えです。このプログラムは、なぜこれが悪い考えであるかを示しています。

#!/usr/bin/perl 

use strict; 
use warnings; 

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

__DATA__ 
1 
2 
3 

Answer 4

あり、これには良い理由はおそらくありませんが、ここではどのようである：スクリプト内からPerlスクリプトを修正するために、本当に、本当に悪い考えです

#!/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__