Re^3: Is it possible to modify __DATA__ via the DATA file handle or otherwise?

I'd rather write to a temporary file and rename it at the end

Good thing I wrote a module for that ;-)

use warnings;
use strict;
use File::Replace 'replace2';

my ($infh,$outfh) = replace2(__FILE__);
while (<$infh>) {
    last if /^__DATA__$/;
    print $outfh $_;
}
print $outfh "__DATA__\n";
print $outfh "New stuff! ".gmtime." UTC\n";
close $infh;
close $outfh;
[download]

Comment on Re^3: Is it possible to modify __DATA__ via the DATA file handle or otherwise? Download Code

Replies are listed 'Best First'.
Re^4: Is it possible to modify __DATA__ via the DATA file handle or otherwise? by LanX (Saint) on Feb 10, 2018 at 13:13 UTC
Still using the `tell` of the DATA filehandle is the far better approach. There is no guaranty to correctly match `__DATA__` without having a full Perl parser. Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Wikisyntax for the Monastery}	[reply] [d/l]
Re^5: Is it possible to modify __DATA__ via the DATA file handle or otherwise? by haukex (Archbishop) on Feb 10, 2018 at 19:16 UTC
Still using the `tell` of the DATA filehandle is the far better approach. You are correct, and thank you for the inspiration :-) I just released v0.08 of File::Replace with a new `copy` method: `use warnings; use strict; use File::Replace 0.08 'replace3'; my ($infh,$outfh,$repl) = replace3(__FILE__,':raw'); $repl->copy(tell(DATA)); print $outfh "New stuff! ".gmtime." UTC\n"; $repl->finish; __DATA__` [download]	[reply] [d/l] [select]