perl hash赋值问题

武也锋 · 发表于 2016-4-5 13:06:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

x

本帖最后由武也锋于 2016-4-5 15:22 编辑

if ($name =~ s/-.*/_n/) { $hash{$owner}{$name} = $temp;
} else {
$temp=$hash{$owner}{$name};
delete $hash{$owner}{$name};
$name .="-t";
}

上面是我脚本的一部分，其中else部分只会执行一次，if部分会执行很多次，并且都是先执行else再执行if部分，
我本想if部分直接使用else里的temp的值，可是却发现if部分temp的值会因为name的变化而变化，这是为什么？
请各位大神指导指导！！！

sz8510171 · 发表于 2016-4-5 14:39:00

$name =~ s/-.*/_n/
你这句话其实是一个替换操作，这种操作不要放在if的判断句里面，真要这么弄，就放在执行段里面

武也锋 · 发表于 2016-4-5 15:05:03

回复 2# sz8510171

谢谢你的回复，但是我试了一下不管放哪儿还是一样的结果！所以还是其他的问题！

zsftm · 发表于 2016-4-5 16:45:40

能贴个执行例子么，不怎么想象的出来效果

武也锋 · 发表于 2016-4-5 18:55:12

回复 4# zsftm

这个不咋好帖，公司没有网。不过谢谢你，我用另外的方法解决了。
我觉得应该是perl 引用的问题，但是我还没找到原因！

[求助] perl hash赋值问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

浏览过的版块

站长推荐 /2