perl中grep如果全匹配的问题！

hotren

前几天写了个东西，其中用到grep()，开始使用时没注意，后来发现grep匹配出来的内容不完全准确，如下：
@a=(ab,abc,abcc,abccc);
$b=grep(abc,$a);
print $b;

最后结果为3

也就是说，grep在匹配的时候是按包含字符串算的，而我需要把和字符串完全一样的元素找出来（也就是希望结果为1），这就出现了问题，不知道哪位有什么好办法可以解决这个问题或是grep还有其它的用法我没发现，请各位不吝赐教，小弟在线等，谢谢！

flw

首先给你的程序加上 use strict;
看见裸字就觉得不爽。

grep 的第一个参数可以用 $_ eq 'abc'

hotren

我这么写的，但是不行啊！请再帮忙看看，或写两句实际的例子吧，谢谢谢谢谢谢谢谢！
#!/usr/bin/perl
use strict;
my @a=(a,abcd,abcc,abc);
my $b=abc;
my $c=grep(/$_ eq $b/,@a);
print "$c\n";

flw

1,
my @a=(a,abcd,abcc,abc);
应为
my @a = qw(a abcd abcc abc);
或者
my @a = ( 'a', 'abcd', 'abcc', 'abc' );

2,
my $b=abc;
应为
my $b = 'abc';

3,
grep 那一句应为：
my ($c) = grep {$_ eq $b }, @a;

总评：
赶紧去看书。