Bobby wrote:
>
> hallo programmer2,
>
> ditolongin ya Saya menemukan kesulitan sewaktu memindahkan values pada array :
>
> @Array1 = ("satu", "dua", "tiga", "empat", "lima");
> @Array2 = ("dua", "tiga", "lima");
>
> bagaimana caranya supaya saya bisa menghilangkan values pada @Array1 yang
> nilainya sama dengan @array2 . dalam kasus diatas berarti yang tertinggal
> adalah :
>
> @Arrai1 = ("satu", "empat", "lima");
mungkin mangsudnya satu, empat?
foreach $e (@Array1, @Array2) { $count{$e}++ };
@diff = grep /./, map { $_ if $count{$_} < 2 } keys(%count);
print join(", ", @diff), "\n";
>
> Terimakasih atas bantuannya,
>
> -Bobby-
>
> --------------------------------------------------------------------------------
> Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
> Informasi arsip di http://www.linux.or.id/milis.php3
> Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
--------------------------------------------------------------------------------
Utk berhenti langganan, kirim email ke [EMAIL PROTECTED]
Informasi arsip di http://www.linux.or.id/milis.php3
Pengelola dapat dihubungi lewat [EMAIL PROTECTED]
