一个小问题

fengzys

1^# fengzys 发表于 2008-04-09 21:53

一个小问题
求教大家如何用最快速的方法检验一个数组@array里面的元素是否相同。

fengzys

2^# fengzys 发表于 2008-04-10 14:36

自己用的grep.--my $lin.
自己用的grep.
my $line=grep(/$self[0]/i,@self);
if($line == @self)
{
return 1;
}
else
{
return 0;
}

hfahe

3^# hfahe 发表于 2008-04-14 23:39

grep hash,一行搞定.