2个小问题：比较2个字符串和为何变为1

finixlei

第一个问题：
my $aa = "+cat";
my $bb = "+cat";
如何比较$aa和$bb是否相同呢？如果直接写print "Match!" if($aa =~ /^$bb$/);是不行的。

第二个问题：
承接第一个问题，如果我这么做：
my $aa = "+cat";
my $bb = "+cat";
$_ = $aa;
$aa = /\+(.*)/;
$_ = $bb;
$bb = /\+(.*)/;
print "$aa\n";
print "$bb\n";
print "Match!" if($aa =~ /^$bb$/);
发现$aa和$bb都变成了1，好像以前不会是这样啊，是Perl版本问题吗？但好像不是。
因为有一个类似的问题：
while(<>)
{
  $_ = chomp($_);
  print "$_\n";
}
发现了$_也变成了1。但是我今晚刚开始写程序时似乎还是正常的，后来不知道为何就变成了1.

flw

小骆驼

finixlei

第二个问题中的前半个我明白了，应该这么写：
$_ = $aa;
($aa) = /\+(.*)/;
$_ = $bb;
($bb) = /\+(.*)/;
这就没问题了。
但$_怎么变成了1呢？

DQP

1. 字符串比较用ne或cmp。
2. $aa = /\+(.*)/; 相当于 $aa = $_ =~ /\+(.*)/; $_ 是 +cat 结果当然是1了
3. perldoc -f chomp.

finixlei

OK，le，第一个问题搞定了

finixlei

OK，第二个问题的后半个也搞定了，只要直接chomp就是把$_最后的回车去掉了。

finixlei

谢谢大家，这里很高效。