重複自己的Perl oneliner匹配

Question

我正在嘗試用Perl讀取文件中某一行的特定部分。 有問題的文件的語法如下。

# Sets $USER1$ 
$USER1$=/usr/.... 
# Sets $USER2$ 
#$USER2$=/usr/... 

我oneliner很簡單，

perl -ne 'm/^\$USER1\$\s*=\s*(\S*?)\s*$/m; print "$1";' /my/file 

出於某種原因，我得到$ 1，每行文件中重複了幾次，顯然曾經是我的比賽後發生的提取。我在這裏錯過了什麼？

Answer 1

您對文件的每一行執行打印，因爲打印被要求每行，無論是正則表達式匹配與否。將第一個;替換爲&&。

Answer 2

試試這個

perl -ne '/^.*1?=([\w\W].*)$/;print "$1";' file 

Answer 3

從perlre：

注意：在Perl失敗的比賽不要重置匹配的變量，這使得它更容易編寫了一系列更具體的情況下測試代碼和記得最好的匹配。

試試這個：

perl -ne 'print "$1" if m/^\$USER1\$\s*=\s*(\S*?)\s*$/m;' /my/file 

Answer 4

$ cat test.txt 
# Sets $USER1$ 
$USER1$=/usr/.... 
# Sets $USER2$ 
#$USER2$=/usr/... 

$ perl -nle 'print if /^\$USER1/;' test.txt 
$USER1$=/usr/....