On Thu Jan 12 09:29:33 2012, MITHUN wrote:
Show quoted text> Calling
>
> write_file($filename, {append => 1, atomic => 1, }, $data);
>
> does not append to an existing file. Rather, the existing file is
> _atomically_ overwritten with
> new data.
>
> Thanks,
> Mithun
Still present in repository as of commit 98c4a18d264f48e629f8a0df54370b22fcf95d65.
#####
$ cat alpha
alpha
$ cat 73919-write-file.pl
#!/usr/bin/env perl
use 5.14.0;
use warnings;
use File::Slurp qw( write_file );
my $filename = 'alpha';
my $data = "beta\n";
write_file($filename, { append => 1, atomic => 1 }, $data);
$ perl -I/home/jkeenan/gitwork/zzzothers/slurp/lib 73919-write-file.pl ; cat alpha
beta
#####
Thank you very much.
Jim Keenan