Question

我有以下字符串：

猫狗（狐狸）catepillar熊狡猾

我需要将此句中的“cat”和“fox”单词替换为单词“animal”

use warnings;
use strict;

# declare your vars with 'my' for lexical scope
my $inputFile = "somefile";
my $outputFile = "someotherfile";
my $Str1="cat";
my $Str2="fox";
my $NewStr="animal";

# use 3-arg lexically scoped open
open(my $F1, "<", $inputFile) or die "Error: $!";
open(my $F2, ">", $outputFile) or die "Error: $!";

while (my $line = <$F1>) {
     # surround with word boundary '\b'
     # NewStr is missing the "$"
     $line =~ s/\b(?:$Str1|$Str2)\b/$NewStr/g;
     print $F2 "$line";

}

# close your file handles
close $F1;
close $F2;

没关系，但是如果我在括号“（）”中有一些单词。让我说我有 “像这样的狐狸（狐狸）。我有结果 - “（动物）”括号。当我替换单词时如何删除括号？

Answer 1

s/\(?\b(?:cat|fox)\b\)?/animal/g;

Answer 2

@tripleee是正确的。让它变得非常简单：

$line =~ s/\(?\b(?:$Str1|$Str2)\b\)?/$NewStr/g;

请注意，使用此代码并且您的代码将在Cat上方发布，因为大写不会选择Cat。

用新的替换括号中的许多单词

2 个答案: