Web Hosting by Netfirms | Free Domain Names by Netfirms

ARRAY Pada Perl

Kumpulan dari scalar disebut dengan sebuah array. Sebuah array memiliki nama variabel yang dimulai dengan simbol @, dimana array dari scalar ini menggunakan tanda koma (,) untuk memisahkan variabel dari array.  Berikut adalah contohnya :

@nama = ("dudy", "mira", "adhe");

sebuah subscript array di notasikan dengan tanda $nama[0]. Intinya kita dapat menggabungkan penggunaan array dan scalar pada baris program, dan hal ini tidak menjadi masalah. Berikut adalah contoh dari penggunaannya :

#!/usr/bin/perl

@item = (15, '23000', "dapat");

print "Ambil $item[0] anda $item[2]  Rp. $item[1]";

Keluarannya adalah :

Ambil 15 anda dapat Rp.23000

Semua array didalam perl bersifat sangat dinamik, artinya pada saat anda melakukan kegiatan pemrograman di lingkungan Linux, anda sama sekali tidak perlu mengatur bagaimana manejemen memori dan alokasinya, Perl akan melakukan hal-hal tersebut secara otomatis. Array pada perl dapat berisikan beberapa array lagi yang sering disebut dengan isitilah subarray, contoh berikut memperlihatkan bagaimana subarray tersebut pada perl :

@A = (1, 2, 3);

@B = (4, 5, 6);

@C = (7, 8, 9);

@D = (@A, @B, @C);

hasilnya, array @D akan berisikan nilai array lainnya yaitu 1 hingga 9. Bentuk lain dari subarray bisa dilihat seperti berikut ini :

@Annual = (@Spring, @Summer, @Fall, @Winter);

Kode di atas menggabungkan beberapa array sekaligus dengan cara lain, yaitu dengan menggunakan sub array yang ditempatkan pada array utama, dimana array @anual akan memuat beberapa nilai dari array lainnya. Perl juga memiliki banyak fungsi yang sifatnya built-in, misalnya adalah fungsi sort, dimana perintah sort akan mengambil sebuah array sebagai sebuah argumen dan mengambalikan pada array yang sama, yaitu melakukan pengurutan secara alpabetikal. Kita lihat contoh berikut ini :

#!/usr/bin/perl

print sort ( 'Beta', 'Gamma', 'Alpha' );

dan keluarannya adalah : 

AlphaBetaGamma. 

Anda Juga dapat membuat kode yang hampir sama dengan menggunakan fungsi lainnya, yang sering disebut dengan join. Fungsi ini akan mengambil dua buah argumen: sebuah string untuk saling berhubungan (connect-with), dan sebuah array string yang digunakan untuk berhubungan. Fungsi join akan mengembalikan string tunggal yang terdiri dari semua elemen didalam array yang digabungkan dengan menghubungkan string. Berikut ini  contoh penggunaannya :

#!/usr/bin/perl

print join ( ' : ', 'Nama', 'Alamat', 'Telphone');

Kode ini akan memberikan keluaran kira-kira :

Nama : Alamat : Telphon

fungsi sort juga dapat digabungkan dengan menggunakan join untuk menghasilkan keluaran seperti pada contoh ini :

#!/usr/bin/perl

print join(', ', sort ('Beta', 'Gamma', 'Alpha'));

berikut ini adalah keluaran program diatas :

Alpha,Beta,Gamma

contoh lain adalah :

#!/usr/bin/perl

print join(':',('A','B','C'),('D','E'),('F','G','H','I'));

Keluaran dari program diatas adalah :

A: B: C: D: E: F: G: H: I. 

Anda juga dapat menggunakan satu buah array atau banyak array, sehingga beberapa array dapat digabungkan menjadi satu.