從perl正則表達式中清除只讀變量

Question

在嘗試清除Perl正則表達式中的只讀變量時遇到一些問題。 這裏是一個示例代碼。

while (<$input>) { 
    $cap = ""; 
    $_ =~ s/(.*)"(hello)(.*)"(.*)/$1$2$4/; 
    $cap = $2; 
    print "$_\n"; 
    print "captured $cap\n"; 
} 

這很好，直到它讀的行沒有你好。 由於某些原因，即使正則表達式不匹配任何東西，2美元仍然是「你好」。 我嘗試使用

$2 = ""; 

但我得到一個只讀值的

修改試圖

如何清除變量有什麼建議？

Answer 1

而不是清除變量，檢查是否匹配成功：

while (<$input>) { 
    $cap = ""; 
    if ($_ =~ s/(.*)"(hello)(.*)"(.*)/$1$2$4/) { 
     $cap = $2; 
    } 
    print "$_\n"; 
    print "captured $cap\n"; 
}