|
|
|
asosiatif array dalam perl akan banyak memberikan fungsi database pada level yang paling rendah. Dengan demikian anda dapat mengambil sebuah elemen atau bagian dari array, dengan menggunakan subscript sebagai referensi (untuk subscript dan referensi belum dibahas pada modul ini). Jelasnya kita lihat contoh berikut ini :
@fruit = ( "Apple", "Orange", "Banana" );
print $fruit[2];
%identitas = ( 'DR', 'Dudy Rudianto',
'N', 'Noviadi',
'D', 'Dayat');
%tempat = ( 'DR', 'Bantul',
'N', 'Baciro',
'D', 'Cantel');
%kerja = ('DR', 'buat homepage perusahaan',
'N', 'Tutor Network Linux',
'D', 'Nonton Doraemon');
foreach$person ('DR','N','D')
{
print "Nama Saya $identitas{$person},\n",
"Saya Tinggal di $tempat{$person},\n",
"Saya $kerja{$person} disana.\n\n";
}
Saya Tinggal di Bantul,
Saya buat homepage perusahaan disana.
Nama Saya Noviadi,
Saya Tinggal di Baciro,
Saya Tutor Network Linux disana.
Nama Saya Dayat,
Saya Tinggal di Cantel,
Saya Nonton Doraemon disana.