看板 Perl 關於我們 聯絡資訊
※ 引述《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 ? foreach $i (@a){ push @c, grep($i eq $_, @b);} -- ※ 發信站: 批踢踢實業坊(ptt.csie.ntu.edu.tw) ◆ From: 140.112.30.172