如果單詞在perl中包含特定模式，則從一行中刪除一個單詞

Question

我有一行說「append serial = xyx end」; 我將搜索「serial」的行，如果它出現在行中，我將刪除直到當前位置的下一個空格字符。 該行看起來像： 操作完成後的「追加結束」

謝謝！

Answer 1

使用此代碼：

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

OUTPUT：

append end at test.pl line 3. 

Answer 2

s/serial\S*// 

從字面上看，比賽之後，用空字符串替換：

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