Как я могу определить, есть ли знак (=) в текущей строке в Perl?

Question

Как определить, есть ли знак (=) в текущей строке?спасибо.

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

Answer 1

Самый простой способ - использовать index :

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

Это быстрее, чем регулярное выражение, потому что это делается на уровне C, без какой-либо компиляции. Если вы просматриваете Perl-код, вам, возможно, все равно, есть ли в строке комментария знак равенства, поэтому есть следующее:

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

Если это не соответствует вашим потребностям, используйте первое.

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

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

или

if ($currentLine =~ /=/) {