Referensi Belajar Komputer: Pengenalan Array Pada Perl

Pengenalan Array Pada Perl

Pada tutorial Perl kali ini, kita akan membahas tentang Pengenalan Array Pada Perl. Pada tutorial sebelumnya, yaitu Pengenalan Tipe Data Pada Perl, Anda telah belajar tentang tipe data Array yaitu tipe data yang digunakan untuk menyimpan data array.

Array adalah kumpulan dari beberapa data yang memiliki tipe data yang sama. Contohny adalah kumpulan mahasiswa teknik informatika di universitas A.

Pada tutorial ini, kita akan membahas lebih detail tentang Array, seperti cara membuat Array, mengakses elemen array, menampilkan array sequensial, menampilkan ukuran dari sebuah array, dan operasi-operasi yang ada di dalam sebuah array.

Membuat Array

Untuk membuat atau mendefiniskan sebuah array, Anda harus menambahkan tanda '@' pada variable atau menggunakan tanda qw// untuk memecah sebuah string menjadi array.

Sebagai contoh:

@array1 = (1, 2, 3);
@array2 = qw/Ini adalah sebuah Array string/;

@array1 adalah sebuah variable array yang digunakan menyimpan beberapa data integer 1, 2, dan 3. Sedangkan @array2 adalah variable array untuk menyimpan data string.

Selain menggunakan cara diatas, Anda juga dapat membuat atau mendefinisikan sebuah array dengan cara berikut:

$array[0] = 'Senin';
...
$array[6] = 'Sabtu';

Mengakses Elemen Sebuah Array

Seperti Anda telah ketahui sebelumnya, bahwa array dimulai dari index ke -0 (nol). Untuk mengakses elemen di array, Anda dapat menggunakan tanda dolar ($) dan diikuti dengan index yang akan Anda akases,

Contoh Program

#File name : array_access.pl

@namahari = qw/Senin Selasa Rabu Kamis Jumat Sabtu Minggu/;

print "$namahari[0]\n";
print "$namahari[1]\n";
print "$namahari[2]\n";
print "$namahari[6]\n";
print "$namahari[-1]\n";
print "$namahari[-7]\n";

Jika Anda jalankan program diatas, maka Akan menampilkan output sebagai berikut:

C:\>perl D:\perl\array_access.pl
Senin
Selasa
Rabu
Minggu
Minggu
Senin

Menampilkan Ukuran Sebuah Array

Di bawah ini adalah contoh program untuk menampikan ukuran dan nilai maksimum dari sebuah array.

Contoh Program

#File name : array_size.pl

@array = (1,2,3,4,5,6);

$size = @array;
$index_max = $#array

print "Size: ", $size,"\n";
print "Maximum Index: ",$index_max,"\n";

Jika Anda jalankan program diatas, maka akan menampilkan output sebagai berikut:

C:\>perl D:\perl\array_size.pl
Size: 6
Maximum Index: 5

Menampikan Array Sekuensial

Anda dapat membuat dan menampilkan data sekuensial pada array dengan menggunakan tanda titik dua ".." pada saat deklarasi dan inisialisasi array.

Contoh Program

#File name : array_sekuensial.pl

@var_10 = (1..10);
@var_20 = (10..20);
@var_abc = (a..z);

print "@var_10\n";   # menampilkan bilangan dari 1 sampai dengan 10
print "@var_20\n";   # menampilkan bilangan dari 10 sampai dengan 20
print "@var_abc\n";  # menampilkan huruf dari a sampai dengan z

Jika program diatas Anda jalankan, maka akan menampilkan output sebagai berikut:

C:\>perl D:\perl\array_sekuensial.pl
1 2 3 4 5 6 7 8 9 10
10 11 12 13 14 15 16 17 18 19 20
a b c d e f g h i j k l m n o p q r s t u v w x y z

Menambah dan Menghapus Elemen Pada Array

Anda juga dapat menambahkan dan menghapus sebuah elemen pada array dengan menggunakan fungsi-fungsi berikut:

push digunakan untuk menambahkan sebuah elemen baru pada elemen terakhir di array.
pop digunakan untuk menghapus elemen terakhir di array.
unshift digunakan untuk menambahkan sebuah elemen baru, dan diletakan pada elemen pertama di array.
shift digunakan untuk menghapus elemen pertama pada array.

Contoh Program

#File name : array_add_remove.pl

# Membuat array nama mahasiswa
@mahasiswa = ("Bedu","Cepot","Dimas");
print "1. \@mahasiswa  = @mahasiswa\n";

# Menambahkan elemen terakhir pada array
push(@mahasiswa, "Endang");
print "2. \@mahasiswa  = @mahasiswa\n";

# Menambahkan elemen pertama pada array
unshift(@mahasiswa, "Ahmad");
print "3. \@mahasiswa  = @mahasiswa\n";

# Hapue Elemen terakhir pada array
pop(@mahasiswa);
print "4. \@mahasiswa  = @mahasiswa\n";

# Hapus Elemen pertama pada array
shift(@mahasiswa);
print "5. \@mahasiswa  = @mahasiswa\n";

Jika program diatas Anda jalankan, maka akan menghasilkan output sebagai berikut:

C:\>perl D:\perl\array_add_remove.pl
1. @mahasiswa  = Bedu Cepot Dimas
2. @mahasiswa  = Bedu Cepot Dimas Endang
3. @mahasiswa  = Ahmad Bedu Cepot Dimas Endang
4. @mahasiswa  = Ahmad Bedu Cepot Dimas
5. @mahasiswa  = Bedu Cepot Dimas