在Perl中，你可以使用s///操作符進行正則表達式的替換
#!/usr/bin/perl
use strict;
use warnings;
# 原始字符串
my $input = "apple, banana, orange, grape";
# 批量替換規則
my %replacements = (
'apple' => 'pear',
'banana' => 'melon',
'orange' => 'grapefruit',
'grape' => 'strawberry'
);
# 使用正則表達式進行批量替換
foreach my $search (keys %replacements) {
$input =~ s/$search/$replacements{$search}/g;
}
print "替換后的字符串: $input\n";
在這個示例中，我們首先定義了一個原始字符串$input，然后創建了一個哈希表%replacements，其中包含了需要替換的單詞及其替換后的單詞。接下來，我們遍歷哈希表的鍵（即需要替換的單詞），并使用s///操作符進行替換。最后，我們打印出替換后的字符串。
注意：在這個示例中，我們使用了全局替換標志g，這意味著它將在整個字符串中查找所有匹配項并進行替換。如果你只想替換第一個匹配項，可以去掉g標志。
