2つの配列から重複しない値を取り出す。 my @temp; my @temp1 = (1,2,3,4); #範囲 my @temp2 = (1,3,4); #指定されている値 my $max = @temp2;foreach my $temp1( @temp1 ){ my $count = 0; foreach my $temp2 ( @temp2 ){ if( $temp1 ne $temp2 ){ $count++…