作者nana0130 (小那)
看板Perl
标题Re: [问题] 纯量变数和阵列完全比对问题
时间Wed Oct 6 16:53:59 2010
谢谢大家的意见
我改出来了
我发现问题在 mysql 栏位中的字串
他跟一模一样的字串都会多出3的字元
这为什麽我也不知道???也许以後我会发现吧 ~
我猜除了换行字元以外，会不会开头，结尾都有空白字元
我参考书本上的方法
把 资料库捞出来的字串，去头去尾
在chomp
$result[2] =~ s/^\s+//;
$result[2] =~ s/\s+$//;
chomp($result[2]);
print length ($result[2]);
这样就可以拿出来作我第一回的资料完全比对
感谢大家~~QQ
※ 引述《nana0130 (小那)》之铭言：
: 大家好
: 我又卡关了
: 上一个问题我解决了
: 这次又有新的问题
: Perl 没有我想像中的简单 QQ
: |||orz
: 我想把 $result[2] 跟 @lines 作完全比对，完全正确，一字不差，要算true
: 这是我的网页 http://140.116.39.115/cgi-bin/ans.pl
: 明明看起来两的都一样，可是程式却判别不出来
: 我节录一段我的程式
: 我再想是不是 $result[2]为一纯量变数 要转成阵列
: 还是 @lines 是阵列要转成纯量变数之後，她们才可以作比较???
: 我的想法对吗 ???
: while (@result = $sth->fetchrow_array)
: {
: print $result[2]; #纯量变数
: print length($result[2]);
: open(INFO, $file);
: my @lines = <INFO>;
: close(INFO);
: print @lines;
: print length(@lines);
: if (@lines eq 'I/PRP am/VBP from/IN Taiwan/NNP ./.')
: {print "1";}
: else {print "0";}
: if ($result[2] eq 'I/PRP am/VBP from/IN Taiwan/NNP ./.')
: {print "3";}
: else {print "4";}
: if ($result[2] eq @lines)
: {print "5";}
: else {print "6";}
: }#end of while
: 感谢曾经帮过我写Perl的人，等我变强，我也会来这个版回馈‵‵
: 3Q~~Q皿Q
--
感谢每个帮我克服Perl关卡的人~
感谢你~虽然我不认识你~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.20.191.116