On Mon, 07 Aug 2000, you wrote:

> mungkin mangsudnya satu, empat?
Btul....
> 
> foreach $e (@Array1, @Array2) { $count{$e}++ };
> 
> @diff = grep /./, map { $_ if $count{$_} < 2 } keys(%count);
> 
> print join(", ", @diff), "\n";

thank you..... thankyou..... : )

--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]

Kirim email ke