如何檢測Perl中是否存在（=）當前行的符號？

Question

如何檢測當前行是否有（=）符號？謝謝。

$_ = $currentLine; 
if (Include =) 
{ 
# do some thing 
} 
else 
{ 
# do another thing 
} 

Answer 1

local $_ = $currentLine; 
if (/=/) { 

或

if ($currentLine =~ /=/) { 

Answer 2

my $currentLine; # presumably this has a value from something earlier 

if ($currentLine =~ /=/) 
{ 
    # line has an = in it 
} 
else 
{ 
    # it doesn't 
} 

閱讀位於perldoc perlop的=~運營商，並在perldoc perlre正則表達式。

Answer 3

最簡單的方法是使用index：

if (index($line, '=') > -1) { 

它比一個正則表達式更快，因爲它是在C級完成，無需任何編圖。如果您正在尋找在Perl代碼，你可能不關心，如果有一個註釋行等號，所以有這樣的：

$line =~ m/^[^#]*=/; 

如果不能滿足您的需求，然後使用第一。