如果单词在perl中包含特定模式，则从行中删除单词

Question

我有一句话说“append serial = xyx end”; 我将在行中搜索“serial”，如果它出现在我要移除的行中，直到当前位置的下一个空格字符。 这条线看起来像： 操作完成后“追加结束”

谢谢！

Answer 1

使用此代码：

my $string = "append serial=xyx end";
$string =~ s/serial\=.*\s+//;
warn $string;

输出：

append end at test.pl line 3.

Answer 2

s/serial\S*//

从字面上看，匹配以下内容并将其替换为空字符串：

1. serial
2. \S非空间
3. *零次或多次