Diberdayakan oleh Blogger.
RSS

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"; 

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

http://www.okkywijaya.tk/

Program pertama…
Seperti ketika belajar bahasa pemrograman yang lain pertama-tama kita akan mencoba membuat program helloworld terlebih dahulu, seperti berikut :

#!/usr/bin/perl
# contoh program helloworld
# ini adalah baris komentar
# nama program : helloworld.pl 
print “helloworld !!!”;
print “selamat datang di perl”;

Bagaimana sangat simple bukan? Baris pertama adalah letak interpreter perl. Contoh diatas (#!usr/bin/perl) merupakan letak interpreter perl di unix/linux, jika anda menggunakan ms windows maka ubah sesuai path directory tempat anda menginstall perl. Pada kenya taannya anda bisa saja tidak menuliskan bari s tsb dan program tetap berjalan, namun ketika anda membuat script CGI maka bari s tersebut wajib dituliskan. Kemudian bari s kedua dari program diatas adalah bari s komentar, ya! komentar di perl ditandai dengan #, coba bedakan dengan baris pertama yang mana tanda # diikuti tanda !. Bari s yang dieksekusi oleh perl adalah bari s ke 4 dan 5, yaitu perintah print untuk menampilkan tulisan helloworld dan selamat datang di perl.
Variabel di perl.... 
Variabel di perl ditandai dengan tanda $ , misalnya : $nama , $bilangan , dst. Seperti halnya pada bahasa pemrograman lain variabel di perl bersifat case-sensitive. 
contoh penulisan variabel yang benar :

$Nama;
$X;
$nama_saya;
$nim1234;
$Hallo_123;

contoh penulisan variabel yang salah :
variabel
kesalahan
$
Paling tidak harus diikuti sebuah huruf
$23saya
harus diawali sebuah huruf bukan angka
$_hallo
harus diawali sebuah huruf bukan garis bawah
$bulan-3
tidak boleh mengandung tanda minus
Tipe data skalar
Sedangkan untuk tipe data di perl terdapat dua jenis yaitu string dan numeric (kedua tipe ini dinamakan tipe skalar), hal ini mempermudah programmer perl karena kita tidak perlu lagi pusing memilih tipe data yang ingin digunakan di dalam program. Selain itu ketika membuat variabel kita tidak perlu menuliskan tipe data yang kita pakai, lalu bagaimana membedakan tipe string dan numeric? Untuk lebih jelas perhatikan contoh berikut :
#!/usr/bin/perl
# contoh variabel scalar di perl
# nama program : variabel.pl
# ini adalah contoh variabel yang bertipe string :


$nama = ”Kadek”;
$Hari = ‘senin';
$welcome_to = ”\n perl emang keren \n”;
$hello123 = ‘selamat datang di perl';
# sedangkan ini adalah contoh variabel bertipe numeric :
$hitung = 500;
$nomor_mahasiswa = 123040015;
$jumlah = 12;
$Hari_ke = 7;


print “$nama”;
print “$Hari”;
print “$welcome_to”;
print “$hello123”;
print “$hitung”;
print “$nomor_mahasiswa”;
print “$jumlah”;
print “$Hari_ke”;
Dari contoh diatas dapat disimpulkan bahwa variabel string ditandai dengan tanda petik tunggal(‘ ') dan petik dua/ganda (“ ”) , sedangkan untuk numeric langsung diisikan bilangan ke variabel tersebut tanpa tanda petik.

Apa bedanya petik tunggal dengan petik ganda ?
Bedanya petik tunggal tidak menghiraukan karakter karakter khusus seperti \n (newline), sedangkan petik ganda dapat membaca karakter khusus tersebut untuk lebih jelasnya kita coba saja dalam program.
#!/usr/bin/perl
# contoh program
# membedakan petik tunggal dan petik ganda
# nama program : tanda_petik.pl 
$a = "\nprogrammer\n"; # petik ganda
$b = '\nprogrammer\n'; # petik tunggal 
print "saya adalah $a";
print "\n"; # spasi
print 'saya adalah $b';
print "\n";
dengan kata lain petik tunggal akan menulis apa adanya , sedangkan petik ganda akan membaca karakter khusus.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

PERL


Dasar Pemrograman Perl

Berikut ini contoh program yang digunakan untuk menampilkan string”Selamat Datang”
1
2
3
4
#!/usr/bin/perl
#
# Program ini menampilkan karakter Selamat Datang
print "Selamat Datang\n";
Setiap penulisan program dalam bahasa Perl, selalu dimulai dengan pemanggilan interpreter
1
#! /usr/bin/perl
atau pada beberapa sistem, interpreter Perl berada pada direktori /usr/local, sehingga pemanggilan interpreter tersebut menjadi
1
#!/usr/local/bin/perl
Pemanggilan ini bertujuan untuk memberitahukan ke mesin untuk melakukan eksekusi pada baris program dibawahnya. Dengan kata lain, interpreter ini memberitahukan  perl untuk melakukan perintah eksekusi.
Komentar dan Statemen
Komentar dapat dimasukkan ke dalam program dengan memberikan simbol #. simbol ini dapat diletakkan di mana saja pada baris program, akan tetapi harus dimulai pada bagian awal dari setiap komentar yang diberikan. Semua statemen pada Perl harus diakhiri dengan tanda semicolon, seperti pada baris terakhir dari contoh program diatas.
Fungsi Print
Fungsi Print adalah menampilkan keluaran karakter. Pada contoh di atas, fungsi print digunakan untuk menampilkan string literal “Selamat Datang” dan diakhiri dengan semicolon.
Menjalankan Program
Untuk membuat listing program di atas, gunakan teks editor yang ada pada Linux. Vi adalah teks editor paling populer yang sering dipergunakan oleh programmer Linux di Indonesia, disamping bisa juga digunakan pico, joe, atau emacs. Untuk memudahkan pengaturan file, gunakan ekstensi .pl untuk nama file, walaupun hal tersebut tidak harus dilakukan. Untuk menjalankan program Perl, pastikan file perl tersebut sudah merupakan file eksekusi dengan menggunakan perintah berikut:
1
chmod u+x namaprogram
pada prompt Linux, dan gantikan namaprogram sesuai dengan nama program yang akan dieksekusi. Program perl ini dapat dijalankan dengan tiga cara seperti berikut :
1. perl namaprogram
2. ./namaprogram
3. namaprogram
jika program tidak berjalan dengan semestinya, gunakan cara seperti berikut :
1
perl -w namaprogram
option -w digunakan untuk menampilkan warning kalau terdapat kesalahan penulisan program. Sebenarnya option -w bisa diletakkan pada shebang interpreter Perl menjadi /usr/bin/perl -w, sehingga untuk mendapatkan warning dari interpreter perl, tidak harus dijalankan secara manual. Untuk dapat menjalankan debugger bersamaan dengan program Perl, tambahkan option -d pada perintah interpreter perl. Berikut adalah contoh penggunaan option -d.
1
Perl -d namaprogram
Sama halnya dengan option -w, option untuk menampilkan debuger dapat diletakkan pada shebang pada awal listing program.
Variabel Scalar
Variabel scalar merupakan bagian yang paling mendasar dari berbagai variabel yang digunakan pada Perl. Variabel Scalar digunakan untuk menangani string dan juga penomoran. Berikut ini adalah contoh dari penggunaan statemen variabel scalar:
1
$prioritas = 9;
variabel ini akan mengatur scalar variabel $prioritas menjadi 9. Terdapat juga statemen lain yang dapat digunakan sebagai sebuah scalar variabel seperti berikut :
1
$prioritas = 'high';
Perl juga dapat digunakan menggunakan angka sebagai sebuah string seperti berikut ini :
1
2
$prioritas = '9';
$nilai_default = '0098';
Perl menggunakan operator aritmatic yang juga digunakan pada bahasa C seperti berikut :
1
2
3
4
5
6
7
8
9
10
$a = 1 + 2; # jumlahkan 1 dan 2 dan letakkan pada $a
$a = 3 - 4; # 3 kurang 4 dan simpan hasilnya pada $a
$a = 5 * 6 # Kalikan 5 dan 6 dan simpan hasilnya pada $a
$a = 9  10 # 9 pangkat 10 dan simpan hasilnya pada $a
$a = 7 / 8 # 7 dibagikan dengan 8
$a = 5 % 2 #Sisa pembagian 5 dibagi dengan 2
++$a # Tambahkan $a dan kembali ke $a
$a++ # Kembali ke $a dan tambahkan nilai $a
-$a # Kurangkan nilai $a dan kembali ke $a
$a- # Kembali ke $a dan tambahkan nilai $a
Untuk string, Perl memiliki beberapa operasi seperti berikut :
1
2
$a = $b . $c # Menggabungkan nilai $a dan $b
$a = $b x $c # Pengulangan $b sebanyak $c kali
Berikut adalah contoh hasil keluaran pengulangan $b sebanyak $c kali :
1
2
3
4
5
#!/usr/bin/perl
$a = a;
$b = 6;
$c = $a x $b;
print "Hasilnya $c \n";
Keluaran dari listing program diatas menjadi :
1
Hasilnya aaaaaa
Interpolasi
Kode Program berikut akan menampilkan string pisang dan pepaya :
1
2
3
$a = 'pisang';
$b = 'pepaya';
print $a. 'dan' .$b;
Mungkin akan terasa lebih enak seandainya statemen di atas bisa digantikan seperti berikut :
1
print '$a dan $b';
akan tetapi, hal ini tidak mungkin karena argumen tersebut akan menampilkan keseluruhan dari string yang berada diantara tanda petik. Untuk mengatasi hal ini bisa digunakan tanda petik ganda, seperti berikut ini :
1
print "$a dan $b";
Pernyataan Terkondisi
Untuk memahami apa yang dimaksud dengan pernyataan terkondisi, perhatikan contoh program berikut.
1
2
3
#!/usr/bin/perl
$x = 2 ** 4;
print "$x\n";
Interpreter perl akan melakukan operasi perpangkatan, yaitu dua pangkat empat, dan menyimpan hasilnya pada variabel $x. Perintah print digunakan untuk menampilkan nilai yang berada pada variabel $x. Pola yang digunakan oleh interpreter perl untuk mengeksekusi program tersebut dengan cara sequential. Sequential berarti interpreter mengeksekusi program dimulai pada bagian atas program dan mengeksekusi tiap pernyataan sampai selesai. Program akan di-terminate setelah pernyatan paling akhir selesai dieksekusi. Semua pernyataan yang berada pada program ini disebut dengan pernyataan tidak terkondisi, karena selalu dieksekusi dengan cara sequential. Pada beberapa situasi, sebuah pernyataan tidak harus keseluruhan dieksekusi, akan tetapi pada bagian pernyataan yang bernilai benar. Pernyataan seperti ini sering disebut dengan pernyataan terkondisi. Perl mendukung beberapa pernyataan terkondisi.
Pernyataan if
if merupakan sebuah pernyataan terkondisi yang paling sederhana pada perl. Cara termudah untuk memahami tentang pernyataan if dengan menggunakan potongan program berikut.
1
2
3
If ($angka) {
print (Angka yang digunakan bukan 0.\n");
}
Pernyataan if menggunakan dua buah kurung kurawal ( { dan } ). Struktur yang digunakan pada pernyataan if terbagi menjadi dua bagian. Kode yang berada di antara if dan tanda kurung kurawal pembuka ( { ). Kode yang berada diantara tanda kurung kurawal pembuka dan kurung kurawal penutup. Bagian pertama sering dikenal dengan nama conditional expression, dan bagian yang kedua sering disebut dengan statement block.
Ekspresi Kondisi
Bagian pertama dari pernyataan if adalah ekspresi kondisi. Interpreter perl selalu melakukan pengujian jika. Hasil dari pengujian kemudian diletakkan pada salah satu dari dua buah kelas berikut :
Jika hasil pengujian bukan bernilai nol, ekspresi kondisi bernilai benar.
Jika hasilnya sama dengan nol, maka ekspresi dinyatakan bernilai salah.
Interpreter perl menggunakan nilai dari ekspresi kondisi untuk menentukan eksekusi pada pernyataan yang berada di antara { dan }. Jika ekspresi bernilai benar, maka pernyataan akan dieksekusi, dan jika bernilai salah pernyataan tidak akan dieksekusi.
Listing berikut adalah contoh program menggunakan pernyataan if.
1
2
3
4
5
6
7
8
#!/usr/bin/perl
print ("Masukkan sebuah angka: \n");
$angka = <STDIN>;
chop ($angka);
if ($angka) {
print ("Angka dimaksud bukan nol\n");
}
print ("Ini baris akhir dari program\n");
Keluaran dari program ini seperti berikut.
1
2
3
4
Masukkan sebuah angka:
9
Angka dimaksud bukan nol
Ini baris akhir dari program
Baris 2, 3, dan 4 pada listing program di atas memiliki kesamaan dengan program-program sebelumnya. Baris 2 meminta adanya masukan, baris 3 digunakan untuk menyimpan nilai ke variabel $angka dan baris 4 digunakan untuk menghilangkan karakter newline yang dilakukan oleh operasi chop.
Baris 5-7 merupakan pernyataan if. Pernyatan ini melakukan pengujian pada ekspresi pada variabel $angka. Jika $angka bukan nol, ekspresi akan bernilai benar dan perintah print akan dieksekusi. Jika $angka adalah nol, perl akan melewati perintah print dan interpreter langsung melompati baris ke 8. Baris 8 yang akan dieksekusi oleh perl dan hasil akhir seperti berikut.
1
Ini baris akhir dari program
Dari contoh ini, bisa disimpulkan bahwa pernyatan if memiliki sintaks seperti berikut.
1
2
if (ekspresi) {
blok_pernyataan
Blok ekspresi digunakan untuk ekpresi kondisi dengan pengujian apakah bernilai benar atau salah. Sedangkan blok_pernyataan merupakan kelompok pernyataan yang akan dieksekusi sesuai dengan nilai yang berasal dari ekspresi.
Blok Pernyataan
Bagian kedua dari pernyataan if adalah pernyataan yang berada diantara { dan }, yang disebut dengan blok pernyataan. Blok pernyataan ini terdiri dari pernyataan-pernyataan sesuai dengan sintaks yang digunakan pada perl. Pada contoh berikut, blok pernyataan terdiri atas satu buah pernyataan.
1
Print ("Nilai masukan bukan nol \n");
Penggunaan operator ==
Perl memiliki beberapa operator yang digunakan untuk ekspresi kondisi. Salah satu operator yang seringkali digunakan adalah equality comparison opearator, ==. Operator == memiliki kesamaan dengan operator lainnya yang mensyaratkan adanya dua buah operand atau subekspresi. Kerja dari operator ini seperti berikut.
Jika terdapat dua pengujian subekspresi dengan nilai numerik sama, operator == menghasilkan nilai benar.
Jika dua subekspresi memiliki nilai yang berbeda, operator == akan mengeluarkan nilai salah.
Operator ini sering digunakan pada ekspresi kondisi, terutama untuk membandingkan dua kondisi, apakah bernilai benar atau salah. Contoh berikut menunjukkan penggunaan operator == yang membandingkan dua buah angka yang berasal dari standard input file.
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
print ("Masukkan sebuah angka : \n");
$angka1 = <STDIN>;
chop ($angka1);
print ("Masukkan angka lainnya : \n");
$angka2 = <STDIN>;
chop ($angka2);
if ($angka1 == $angka2)
{
print ("Dua akan tersebut sama.\n");
}
print ("Akhir dari baris program.\n");
Jika program tersebut dijalankan, didapatkan hasil seperti berikut.
1
2
3
4
5
6
Masukkan sebuah angka :
4
Masukkan angka lainnya :
4
Dua angka tersebut sama.
Akhir dari baris program
Baris 2-4 sama memiliki pernyataan yang sama dengan program-program sebelumnya. Pernyataan tersebut berfungsi untuk menampilkan pesan untuk memasukkan angka di layarm disimpan pada variabel $angka1 dan perintah chop akan mengambil karakter paling akhir dari nilai variabel. Baris 5-7 mengulangi proses yang sama untuk memasukkan angka kedua yang disimpan pada variabel $angka2. Pernyataan ekspresi kondisi untuk membandingkan dua nilai berada pada baris 8-10. baris 8 berisikan ekspresi pembanding berikut.
1
$angka1 == $angka2
Jika dua angka yang dimasukkan pada variabel $angka1 dan $angka2 bernilai sama, maka ekspresi kondisi dinyatakan bernilai benar. Jika ekspresi kondisi bernilai salah, program akan menampilkan perintah print pada baris akhir.
Penggunaan Operator if dan else
Program di atas dapat dimodifikasi untuk menampilkan pesan jika dua angka bernilai sama dan pesan lainnya digunakan jika dua angka yang dimasukkan tidak bernilai sama. Untuk melakukan hal tersebut digunakan pernyataan if-else. Baris program berikut menggunakan program di atas dengan memodifikasi ekspresi kondisi menggunakan pernyataan if-else.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
print ("Masukkan sebuah angka : \n");
$angka1 = <STDIN>;
chop ($angka1);
print ("Masukkan angka lain :\n");
$angka2 = <STDIN>;
chop ($angka2);
if ($angka1 == $angka2)
{
print ("Kedua angka tersebut sama\n");
}
else {
print ("Kedua Angka tersebut tidak sama\n");
}
print ("Ini merupakan baris akhir program\n");
Keluaran dari program di atas seperti berikut.
1
2
3
4
5
6
Masukkan sebuah angka :
9
Masukkan angka lain :
6
Kedua Angka tersebut tidak sama
Ini merupakan baris akhir program

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS