字符串匹配

时间:2012-11-08 22:01:23

标签: string perl match

我写了一段代码:

my $str = 'http://www.ykt.ru/cgi-bin/go?http://ya.ru';
my $str2 = 'http://ya.ru';
if ($str == $str2)
{
    print "str = str2";
}
else 
{
    print "str != str2";
}

它告诉我str = str2。但这是错误的。只有$ str ='http://ya.ru';这是真的。怎么了?

1 个答案:

答案 0 :(得分:10)

您应该将字符串与eq运算符进行比较,如下所示:

if ($str eq $str2) { ... }

它实际上是一个非常方便的助记符规则:字符串的字母,非字母的数字(对于数字(因为每个符号比较运算符都有'罗嗦'替代):

numbers | strings
----------------- 
  ==    |   eq
  !=    |   ne
  <     |   lt
  >     |   gt
  <=    |   le
  >=    |   ge
 <=>    |  cmp    

否则将使用数字比较:两个操作数将被转换为数字,并且将比较此转换的结果。由于两个字符串都是从非数字符号开始(即使在修剪后),它实际上变为(0 == 0)

请注意,如果你用...开始编写脚本,你实际上会在你面前提出这个答案。

use warnings;

... pragma,就像我做过here

Argument "http://ya.ru" isn't numeric in numeric eq (==) at t.pl line 5. 
Argument "http://www.ykt.ru/cgi-bin/go?http://ya.ru" isn't numeric in numeric eq (==) at t.pl line 5.