奇怪问题，大家帮忙看看

Cu_fans

为了找到符合想要的数据，写了个简单的脚本。
现发现不符合想要的都能打印出来。
18010001368282118401B03245041888234918066308090509064008090502225201310620121          00080A540000010000.000002.000000.000000100000055  -   -   -      919584 0STS1-XWQXAA    -              CC-                   0000.000002.000000.000000.00000000-         00025.55

想匹配那两个位置的值为919584, MCHAT

现脚本如下：

my $temp = "MCHAT"; while(<>) {         my $str1 = substr($_,152, 6);         my $str2 = substr($_, 164, 5);         if ($str1 == "919584")         {           print $str2, "\n";                 if ($str2 == $temp)                 {                         print $temp,"\n";                         print $_;                 }                 last;         } }

发现打印出来的是919584，-XWQX。 竟然也把上面的那行打印出来了。
真的不明白是啥回事了。

shaneqi

我这里就打印
-XWQX
MCHAT
还有$_

yashiro_lj

没看明白。。。

Cu_fans

原帖由 shaneqi 于 2009-6-17 14:54 发表
我这里就打印
-XWQX
MCHAT
还有$_

你那打印出来的MCHAT是 这里print $temp,"\n";打印的。

我的疑问是$str2 = "-XWQX" $temp = "MCHAT"
明明不等怎么会把$temp的值和$_给打印出来了。

yashiro_lj

比较字符串要用eq或ne，你这段代码要是用use warnings，立马就报错了。

==比较的是数字，把$str2和$temp都当成0，当然就进入if语句print $temp和$_了。

BTW，个人建议无论多大代码量，一定加上use strict和use warnings，能节约很多时间

shaneqi

Argument "MCHAT" isn't numeric in numeric eq (==) at C:/Documents and Settings/scnxic/workspace1/test/test1.pl line 12, <DATA> line 1.

Cu_fans

谢谢楼上的两位。