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把整个文件写进原文件覆盖
这样即可达到修改原文件的目的
perl6 修改文件并覆盖
原文：http://www.cnblogs.com/perl6/p/6931571.html
