perl6 修改文件并覆盖

use v6;
my $filename = 'data.txt';
my $data = slurp $filename;
say $data;
$data ~~ s/'4'/'ABC'/;
say $data;
spurt $filename, $data;
say 'Done!';

用slurp一次读入整个文件

用s///修改后再用spurt把整个文件写进原文件覆盖

这样即可达到修改原文件的目的