Perlについての質問箱 17箱目
■ このスレッドは過去ログ倉庫に格納されています
0440デフォルトの名無しさん
2005/06/28(火) 19:55:49@aa = (10011,23412,32221,12123);
@bb = (10011,12632,23412,32221,44432,12123,43444);
foreach $bb(@bb){
if (!grep{$bb == $_}@aa){
push @cc, $bb;
}
}
print "@aa \n";
print "@bb \n";
print "@cc \n";
■ このスレッドは過去ログ倉庫に格納されています