Belajar Perl [bab II]

by Kadek Bagus
Array dan operasinya

Array di perl ditandai dengan @ , array merupakan kumpulan dari veriabel variabel yang bertipe sama. Cara pengaksesannya menggunakan index mulai dari nol. Berikut contohnya

@hallo = (10,20,30,40,50);

Artinya kita mempunyai array dengan nama hallo yang mana terdapat 5 elemen yang semuanya bertipe numeric , yaitu index ke nol [0] adalah 10 , index ke satu [1] adalah 20 dan seterusnya.

Index ke nol array hallo[0] menyimpan nilai 10

Index ke satu array hallo[1] menyimpan nilai 20

Index ke dua array hallo[2] menyimpan nilai 30

Index ke tiga array hallo[3] menyimpan nilai 40

Index ke empat array hallo[4] menyimpan nilai 50

Contoh yang array bertipe string :

@family = (“bapak”,”ibu”,”kakak”,”adik”);

Index ke nol array family[0] menyimpan nilai string bapak

Index ke satu array family[1] menyimpan nilai string ibu

Index ke dua array family[2] menyimpan nilai string kakak

Index ke tiga array family[3] menyimpan nilai string adik

Keistimewaan array di perl, array dapat bertipe campuran yaitu string dan numeric. Berikut contohnya :

@campur = (12,4500,”mahal”,7600,”murah”,”hemat”);
@enak = (“makan”,”minum”,1000,2500,3000,”rupiah”);

Selain itu dapat juga digabungkan 2 array atau lebih, berikut contohnya :

@a = (1,2,3,4);
@b = (“satu”,”dua”,”tiga”,”empat”);
@c = (@a,5,@b,” lima ”);

Dengan demikian array @c berisi 1,2,3,4,5,”satu”,”dua”,”tiga”,”empat”,”lima”. Untuk mengetahui panjang suatu array gunakan perintah $#nama_array, misalnya :

@a = (1,2,3,4);
print “ $#a \n”;

Berikut contoh program yang menggunakan array :

#!/usr/bin/perl
# contoh penggunaan array di perl
# nama program : array.pl

@a=(1,2,3,4);
@b=("satu","dua","tiga","empat");
@c=(@a,5,@b,"enam");

print "index ketiga dari array a adalah @a[3]\n";
print "index pertama dari array a adalah @a[1]\n";
print "index kedua dari array a adalah @a[2]\n";
print "index ke-nol dari array a adalah @a[0]\n";

print "\n"; # spasi

print "index ke-nol dari array b adalah @b[0]\n";
print "index ketiga dari array b adalah @b[3]\n";
print "index pertama dari array b adalah @b[1]\n";
print "index kedua dari array b adalah @b[2]\n";

print "\n";
print "panjang dari array c adalah $#c \n";
print "\n";

print "index ke-nol dari array c adalah @c[0]\n";
print "index pertama dari array c adalah @c[1]\n";
print "index kedua dari array c adalah @c[2]\n";
print "index ketiga dari array c adalah @c[3]\n";
print "index ke-empat dari array c adalah @c[4]\n";
print "index kelima dari array c adalah @c[5]\n";
print "index ke-enam dari array c adalah @c[6]\n";
print "index ketujuh dari array c adalah @c[7]\n";
print "index kedelapan dari array c adalah @c[8]\n";
print "index kesembilan dari array c adalah @c[9]\n";

print "\n";

print "semula index kesembilan dari array c adalah @c[9]\n";
@c[9]=" lima ";
print "sekarang index kesembilan dari array c adalah @c[9]\n";