perl 把数组中字符串取出来 替换

在 Perl 中，可以使用 `s///` 替换操作符和 `foreach` 循环来遍历数组中的字符串，进行替换操作。以下是一个简单的示例：

my @array = ("foo", "bar", "baz");
foreach my $str (@array) {
    $str =~ s/o/u/;
    print "$str\n";
}

输出结果为：

fu
bur
buz

在上面的代码中，首先定义了一个包含三个字符串的数组 `@array`。然后使用 `foreach` 循环遍历数组中的每个字符串，将其中的字符 `o` 替换为 `u`，并输出替换后的字符串。注意，在替换操作中使用的是 `$str` 变量，而不是数组 `@array`。

如果要将数组中所有字符串中的某个子串替换为新的字符串，可以使用类似下面的代码：

my @array = ("foo bar", "hello world", "baz qux");
foreach my $str (@array) {
    $str =~ s/bar/baz/;
    print "$str\n";
}

输出结果为：

foo baz
hello world
baz qux

在上面的代码中，将数组中所有字符串中的 `bar` 替换为 `baz`，并输出替换后的字符串。