非共通要素を抜き出す

perlを勉強し始めたのですが、
今　非共通要素の抜き出しに苦心しています。
助けていただければうれしいです。

以下は私が試したものなのですが
どうも非共通要素を抜き出せないでいます。
何故なのでしょうか？

@array = (1..10);
@cmp_array = (5..10);

@notfound=();

foreach $array_element (@array) {
foreach $cmp_array_element (@array) {
if ($array_element != $cmp_array_element) {
push @notfound, $array_element;
}
}
};

よろしくお願いします。

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2006/09/18 17:18

@array = (1..10);

@cmp_array = (5..10);
@notfound=();#@array だけにある要素
#１つのやり方
@ck{@cmp_array}=();
foreach $array_element (@array) {
push(@notfound, $array_element) unless exists $ck{$array_element};
}
print join(",",@notfound);#結果の表示

この回答への補足

全ての数が表示されてしまいました。

補足日時：2006/09/19 01:52

No.4 回答者： BLUEPIXY 回答日時： 2006/09/19 02:43

#1>全ての数が表示されてしまいました。

ウチでは、
1,2,3,4
になりますけど・

この回答へのお礼

すいません。
非共通要素を探す前に
共通要素を調べていた為かうまく表示がされなかっただけのようです。よく確かめずにコメントしてしまい、すみませんでした。
今はきちんと表示されています。ご回答　ありがとうございました。

お礼日時：2006/09/19 04:35

No.3 回答者： kumoz 回答日時： 2006/09/18 20:08

２つめの foreach の配列名が、間違っていますよ。

@array ではなく @cmp_array でしょう。

次の部分には、問題があります。

if ($array_element != $cmp_array_element) {
push @notfound, $array_element;
}

上のようにしてしまうと、@cmp_array の１つの要素と違うたびに $array_element を @notfound に入れてしまうことになります。非共通要素を抜き出すためには、@cmp_array のすべての要素と比較して、同じものがないときだけ @notfound に入れるようにしなければいけません。元のコードを生かして、直してみましたので参考にしてください。

OUT: foreach $array_element (@array) {
foreach $cmp_array_element (@cmp_array) {
next OUT if $array_element == $cmp_array_element;
}
push @notfound, $array_element;
}

この回答への補足

2行目はタイプミスしました。すいません。
これもうまく働きません。

共通要素がある時に保存するようになっています。
if文がどうも違っているようです。

$array_element == $cmp_array_element;
を
$array_element != $cmp_array_element;
と直して使ってみましたが　
arrayに含まれる全ての数字が表示されてしまいます。

補足日時：2006/09/19 01:58

No.2 回答者： Tacosan 回答日時： 2006/09/18 17:27

まあ #1 と同じですが

%ck = ();
$ck{$_} = 1 for @array;
$ck{$_} = 0 for @cmp_array;
@notfound = grep { $ck{$_} == 1 } keys %ck;
とか. delete を使うともっとシンプルかもしれない.