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把整个文件写进原文件覆盖
这样即可达到修改原文件的目的
时间: 2024-10-05 04:33:30
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把整个文件写进原文件覆盖
这样即可达到修改原文件的目的