Array dan operasi di PERL
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);
KLIK iklan dibawah untuk langganan Materi Jaringan di web ini !!
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
@family = (“bapak”,”ibu”,”kakak”,”adik”);
Index ke nol array family[0] menyimpan nilai string bapak
@a = (1,2,3,4);
@b = (“satu”,”dua”,”tiga”,”empat”);
@c = (@a,5,@b,” lima ”);
@hallo = (10,20,30,40,50);
KLIK iklan dibawah untuk langganan Materi Jaringan di web ini !!
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 :
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 :
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";