如何检测Perl中当前行中是否有(=)符号？

Question

如何检测当前行中是否有(=)符号？谢谢.

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

Answer 1

最简单的方法是使用索引:

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

它比正则表达式更快,因为它是在C级完成的,没有任何编译.如果你正在查看Perl代码,你可能不在乎注释行上是否有等号,因此有这样的:

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

如果这不符合您的需求,请使用第一个.

Answer 2

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

要么

if ($currentLine =~ /=/) {

Answer 3

 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.