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

Question

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

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

Answer 1

最简单的方法是使用index :

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

它比正则表达式更快，因为它是在 C 级完成的，没有任何编译。如果您正在查看 Perl 代码，您可能不关心注释行上是否有等号，因此有:

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

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