perl 比较字符串失败
$ref->{'city'}是数据库取出来的引用，但是下面的话好像失去了作用，
if($ref->{'city'} eq "sh")
{
$ss->execute("sh".$ref->{'id'},$ref->{'id'}.".SS");
}
if($ref->{'city'} eq "sz")
{
$ss->execute("sz".$ref->{'id'},$ref->{'id'}.".SZ");
}
如果单独使用
if($ref->{'city'} eq "sz")
{
$ss->execute("sz".$ref->{'id'},$ref->{'id'}.".SZ");
}
则程序全部变成了sz
反之则变成了sh
为什么会这样
[解决办法]
什么叫"程序全部变成sz"?
[解决办法]
对引用的使用，是否还要加个$
if($$ref->{'city'} eq "sh")
[解决办法]
不需要
[解决办法]
楼主太懒，自己调试一下看看值分别是多少不就好了，再不济输出到文本文件里面仔细看好了。而且问的问题不知道过几天自己能不能看懂。
[解决办法]
没看懂楼主的意思。
如果不知道hash数组里的值，
可以use Data::Dumper;
然后打印$ref->{'city'}，看是否是你想要的值：
print Dumper($ref->{'city'});
