Question

我正在使用if条件检查＆＃34; +＆＃34;存在于字符串中。如果它存在，它应该打印一些东西，否则如果＆＃34; - ＆＃34;它存在，它应该打印其他东西：

if ($test_1 =~/^+/)
{
    print OUTFILE1 "Unsigned \n";
}
elsif($test_1 =~/^-/)
{
    print OUTFILE1 "Signed \n";
}

Answer 1

if ($test_1 =~/^+/)

应该是

if ($test_1 =~/^\+/)

+在正则表达式中有特殊含义，如果要将其作为普通字符匹配，则需要将其转义。

Answer 2

+需要转义，您可能不需要启动锚点：

if ($test_1 =~ /\+/)
{
    print OUTFILE1 "Unsigned \n";
}
elsif ($test_1 =~ /-/)
{
    print OUTFILE1 "Signed \n";
}

Answer 3

您可以使用旨在确定角色位置的功能index()（＆＃34; +＆＃34;或＆＃34; - ＆＃34; 在您的情况下）或字符串中的子字符串。

这里有一个例子：

 ...
if (index($test_1, "+") == 0) { # check if + is in the 0-th position,
  print OUTFILE1 "Unsigned \n"; # that means the 1-st starting from left;
} elsif (index($test_1, "-") == 0) {
  print OUTFILE1 "Signed \n";
}
 ...

如何使用perl检查字符串中是否存在特殊字符“+”

3 个答案: