Liburan bersama PERL

Hore-hore libur.....
Karena liburan mo memperdalam pemrograman yang namanya perl. Bukan karena logonya seperti itu truz aku milih belajar perl :D Alasan [1]Karena perl bahasa pemrograman yang mirip dengan c++ dan hampir mendekati php. Kalo udah mahir dasarnya so tinggal mempelajari function-nya aja. Alasan [2] kayaknya lebih asyik daripada shell programming yang ada di linux, alasan [3] mo mempelajari yang namanya socket programming. Itu sih menurutku, menurut yg lain... emang gw pikirin. Yok kita mulai dasarnya' :D

Perl diciptakan oleh Larry Wall yang dibuat dari bahasa C, yang tujuan awalnya untuk mempermudah administrasi di sistem *nix (liat di toko buku,tapi g beli :D) Perl khusus dirancang untuk manipulasi data text.

Yang dibutuhkan untuk pemrograman ini, kalo di windows biasanya active perl, kalo di linux biasanya sudah include tapi kalo g ada ya cari aja di google truz di install ;p
Untuk sistem *nix diawal program bisa di kasih argumen

#!/usr/bin/perl

agar program dapat dieksekusi secara langsung, kalo di win gak usah deh...

Contoh di bawah ini menggunakan perl di windows.

Contoh 1: halo.pl

print "Masukkan nama=";
$nama=<STDIN>;
print "Halo $nama!";

Hasilnya:

Lho koq seperti itu hasilnya?
Tentu saja karena <STDIN> juga melakukan input terhadap baris sesudah teks yang kita ketikkan (jadi yang terbaca di $nama adalah sarah n bukan sarah) karena itu perlu di tambahkan sebuah fungsi untuk menghilangkannya, yaitu

chomp()

sehingga programnya menjadi:


Contoh 2: halo2.pl

print "Masukkan nama=";
$nama=<STDIN>;
chomp $nama;
print "Halo $nama!";

dan hasilnya:


Contoh3: halo3.pl Langsung aja ditambah if, elsif, else, while dan array

@kumpulanrhs=("moklet","sewelas","studio");
print "Masukkan nama=";
$huruf=<STDIN>;
chomp $huruf;
if ($huruf eq "miftakh") {
 print "$huruf kamu cakep dehn";
}
else {
 print "sugeng rawuh $huruf ";
 #$rhs="menghilang";
 printf "Masukkan kata rahasia=";
 $rahasia=<STDIN>;
 chomp $rahasia;
 $i=0;
 $katakunci="otre";
 while ($katakunci eq "otre") {
  if ($kumpulanrhs[$i] eq $rahasia) {
   $katakunci="yess";
   #print "$i";
  }
  elsif ($i<2) {
   $i=$i+1;
  }
  else {
  printf "Sori bro salah.";
  printf "Masukkan lagi=";
  $rahasia=<STDIN>;
  chomp $rahasia;
  $i=0;
  }

 }
}

Seperti apa hasilnya? Coba sendiri donkzzzz :D :D
Tapi tak kasih penjelasan dulu:
@kumpulanrhs ==> adalah sebuah array, tanda @ menunjukkan tanda array
if ($huruf eq "miftakh") ==> kondisi if, sedangkan eq adalah equivalen atau "=" dan lawannya adalah ne yaitu not equivalen
while ($katakunci eq "otre") ==> pengulangan while, jika kondisinya terpenuhi maka akan terus terjadi looping.


Demikian yang dapat ku berikan, silahkan di kembangkan sendiri....

Artikel Terkait :