Belajar Perl ( Part II )

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:

1:  @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 :

1:  @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 :

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

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

1:  @a = (1,2,3,4);  
2:  @b = (“satu”,”dua”,”tiga”,”empat”);  
3:  @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 :

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

Berikut contoh program yang menggunakan array :

1:  #!/usr/bin/perl  
2:  # contoh penggunaan array di perl  
3:  # nama program : array.pl  
4:  @a=(1,2,3,4);  
5:  @b=("satu","dua","tiga","empat");  
6:  @c=(@a,5,@b,"enam");   
7:  print "index ketiga dari array a adalah @a[3]\n";  
8:  print "index pertama dari array a adalah @a[1]\n";  
9:  print "index kedua dari array a adalah @a[2]\n";  
10:  print "index ke-nol dari array a adalah @a[0]\n";  
11:  print "\n"; # spasi   
12:  print "index ke-nol dari array b adalah @b[0]\n";  
13:  print "index ketiga dari array b adalah @b[3]\n";  
14:  print "index pertama dari array b adalah @b[1]\n";  
15:  print "index kedua dari array b adalah @b[2]\n";  
16:  print "\n";  
17:  print "panjang dari array c adalah $#c \n";  
18:  print "\n";  
19:  print "index ke-nol dari array c adalah @c[0]\n";  
20:  print "index pertama dari array c adalah @c[1]\n";  
21:  print "index kedua dari array c adalah @c[2]\n";  
22:  print "index ketiga dari array c adalah @c[3]\n";  
23:  print "index ke-empat dari array c adalah @c[4]\n";  
24:  print "index kelima dari array c adalah @c[5]\n";  
25:  print "index ke-enam dari array c adalah @c[6]\n";  
26:  print "index ketujuh dari array c adalah @c[7]\n";  
27:  print "index kedelapan dari array c adalah @c[8]\n";  
28:  print "index kesembilan dari array c adalah @c[9]\n";  
29:  print "\n";  
30:  print "semula index kesembilan dari array c adalah @c[9]\n";  
31:  @c[9]=" lima ";  
32:  print "sekarang index kesembilan dari array c adalah @c[9]\n";   

Semoga Membantu.

Author : Dayat_eMJe