Re: [問題] get the same elements
※ 引述《easy1 ( ~_~ !)》之銘言：
: @a = qw/a b c d e f/;
: @b = qw/a c g h f d b/;
: how can I get the same elements in @a and @b ?
好像沒有直接的function能做到這樣的事
不過你可以這樣做
@a = qw(a b c d e f);
@b = qw(a c g h f d b);
@aa = sort @a;
@bb = sort @b;
$i = $j = 0;
while ($i < $#aa && $j < $#bb)
{
$i++ if ($aa[$i] lt $bb[$j]);
$j++ if ($aa[$i] gt $bb[$j]);
if ($aa[$i] eq $bb[$j])
{
print $aa[$i] . "\n";
$i++;
$j++;
}
}
--
※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw)
◆ From: 140.112.30.183
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
