鏈変互涓嬪嚑绉嶆柟娉曞彲浠ヤ娇鐢≒erl淇敼鏂囦欢鍐呭锛?/p>

1. 浣跨敤姝ｅ垯琛ㄨ揪寮忔浛鎹細浣跨敤Perl鐨勬鍒欒〃杈惧紡鍔熻兘锛屽彲浠ラ€氳繃鍖归厤鐗瑰畾鐨勬ā寮忥紝骞舵浛鎹负鏂扮殑鍐呭鏉ヤ慨鏀规枃浠躲€?/li>

#!/usr/bin/perl
use strict;
use warnings;
my $file = 'file.txt';
open(my $fh, '<', $file) or die "Cannot open file: $!";
my @lines = <$fh>;
close($fh);
foreach my $line (@lines) {
$line =~ s/old/new/g; #灏嗘墍鏈夊尮閰嶅埌鐨?quot;old"鏇挎崲涓?quot;new"
}
open($fh, '>', $file) or die "Cannot open file: $!";
print $fh join("", @lines);
close($fh);

2. 浣跨敤妯″潡锛歅erl涓湁涓€浜涙ā鍧楀彲浠ユ洿鏂逛究鍦颁慨鏀规枃浠跺唴瀹癸紝濡?code>File::Slurp鍜?code>File::Find::Rule銆?/li>

#!/usr/bin/perl
use strict;
use warnings;
use File::Slurp;
my $file = 'file.txt';
my @lines = read_file($file);
foreach my $line (@lines) {
$line =~ s/old/new/g; #灏嗘墍鏈夊尮閰嶅埌鐨?quot;old"鏇挎崲涓?quot;new"
}
write_file($file, @lines);

3. 浣跨敤-i閫夐」锛歅erl鐨?code>-i閫夐」鍙互鐩存帴淇敼鏂囦欢鍐呭锛屾棤闇€杩涜鏂囦欢璇诲彇鍜屽啓鍏ユ搷浣溿€?/li>

#!/usr/bin/perl -i
use strict;
use warnings;
while (<>) {
s/old/new/g; #灏嗘墍鏈夊尮閰嶅埌鐨?quot;old"鏇挎崲涓?quot;new"
print;
}

浠ヤ笂鏄竴浜涘父瑙佺殑Perl淇敼鏂囦欢鍐呭鐨勬柟娉曪紝鍙互鏍规嵁闇€瑕侀€夋嫨閫傚悎鑷繁鐨勬柟寮忋€?/p>