免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 1664 | 回复: 7

这个问题比较怪异【ok解决】~~~~~! [复制链接]

论坛徽章:
0
发表于 2009-11-13 16:19 |显示全部楼层
$cName = "sdsd";
$l = "sdsd=12121212";
my($nm,$value) = split /=/,$l;
                          print $nm."\n";
                         $value =~ s/['"]//g;
                          if($nm eq $cName) {
                                  print $nm."\n";
                                  print "<=+=+=".$nm."=+=+=>\n";
                          }   


这个没问题

放sub 里$nm 就被清空了







[ 本帖最后由 danssion 于 2009-11-13 17:16 编辑 ]

论坛徽章:
0
发表于 2009-11-13 16:37 |显示全部楼层
if 外面的可以打印出来
print $nm."\n";

if 里面的就不行








论坛徽章:
0
发表于 2009-11-13 16:45 |显示全部楼层

回复 #2 danssion 的帖子

我这里可以!

论坛徽章:
0
发表于 2009-11-13 16:47 |显示全部楼层
没发现什么异常的啊!

论坛徽章:
0
发表于 2009-11-13 16:50 |显示全部楼层
这只是一部份

还有一大段 sub 呢

不过发现是  有空值混入了





论坛徽章:
0
发表于 2009-11-13 16:52 |显示全部楼层
这一小段 是抽取出来的
我运行也没问题

论坛徽章:
0
发表于 2009-11-13 16:52 |显示全部楼层
没问题

1 #!/usr/bin/perl -w

&nbsp;&nbsp;2 use strict;
&nbsp;&nbsp;3
&nbsp;&nbsp;4 my $cName = "sdsd";
&nbsp;&nbsp;5 my $l = "sdsd=12121212";
&nbsp;&nbsp;6 ttt($cName,$l);
&nbsp;&nbsp;7 sub ttt {
&nbsp;&nbsp;8   my $cName = shift;
&nbsp;&nbsp;9   my $l = shift;
&nbsp;10 my($nm,$value) = split /=/,$l;
&nbsp;11 print $nm."\n";
&nbsp;12 $value =~ s/[

论坛徽章:
0
发表于 2009-11-13 17:15 |显示全部楼层


已经解决
多谢
帮忙
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP