BELAJAR PERL KUY..

Oke guys hari ini kita kan belajar perl

Sejarah singkat perl…

Perl singkatan dari Practical Extraction and Report Language. Perl adalah bahasa yang bersifat open source untuk berbagai platform system operasi seperti : Unix /Linux, MVS, VMS, Ms DOS/Windows, Macintosh, OS/2, Amiga, dsb. Bersifat open source artinya tersedia secara bebas, jadi anda tidak perlu takut masalah pembajakan software seperti ketika anda menggunakan produk Microsoft. Perl dibuat oleh Larry Wall tahun 1986 ketika itu ia diminta untuk menyediakan suatu konfigurasi system manajemen dan control untuk suatu WAN(Wide Area Network). Larry wall dengan menggunakan beberapa tool yang ada telah membangun suatu system yang dapat bekerja pada beberapa platform dan jaringan. Setelah system diinisialisasi, dia melanjutkan dengan mengembangkan perl dan pada tahun 1989 dia melemparkanya ke internet dan terus melanjutkan pengembangannya. Pada perkembangannya saat ini hampir semua operasi di system operasi unix dapat ditangani dengan perl.

Lalu apa saja yang dibutuhkan untuk membuat program dan menjalankan perl ?

Interpreter perl (terakhir versi 5), jika anda menggunakan linux biasanya sudah ada pada paket installasi distro. Sedangkan pengguna windows anda bisa menginstall activeperl yaitu distribusi perl untuk windows
Text editor, di windows anda bisa memakai notepad, textpad,ultraedit di linux bisa menggunakan vi,emacs

Bagaimana saya membuat dan menjalankan program perl ?

Pertama tulis kode program dengan text editor, kemudian save as dengan extensi *.pl (namaprogram.pl), contoh : program1.pl , saya.pl , terserah_anda.pl

Kemudian dari command prompt(win) atau console(linux) ketikan :
perl namaprogram.pl , atau namaprogram.pl

dengan catatan anda telah menginstall perl sebelumnya, jika belum anda akan mendapatkan pesan : command not found, not recognized, dsb.

misalnya saya mempunyai program perl dengan nama hallo.pl maka untuk menjalankanya saya mengetikan :
perl hallo.pl atau bisa juga : hallo.pl

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 = ”along”;
$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

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




Decision / selection / percabangan

Percabangan di perl terdapat dua jenis yaitu if dan unless. Pada if blok perintah akan dijalankan jika syarat atau kondisi di dalam if terpenuhi. Bentuk if di perl mirip seperti di bahasa c.


if tunggal :


if(ekspresi_kondisi)
   {
    Perintah;
   } 


if - else :


if(ekspresi_kondisi)
   {
    Perintah1;
   } 
else
  {
   Perintah 2;
   }


if – elsif – else :


if(ekspresi_kondisi1)
   {
    Perintah1;
   } 
elsif(ekspresi_kondisi2)
   {
    Perintah2;
   } 
else
   {
    Perintah3;
   }





Contoh dalam program :
#!/usr/bin/perl
# contoh penggunaan percabangan if
# nama program : percabangan_if.pl
print "apakah anda senang membuat program ?\n";
print "jawaban anda (y/t): ";
$jawab=<STDIN>;
chomp($jawab); 
if($jawab eq "y") # if tunggal
     {
       print "anda memang programmer sejati\n";
     }


print "\n"; # spasi 


print "siapa nama anda?\n";
print "nama anda: ";
$nama=<STDIN>;
chomp($nama); 
if($nama eq "tony") # if-else
     {
     print "selamat datang tony !!!\n";
     } 
else
     {
      print "maaf, anda tidak dikenal\n";
     } 
print "\n"; 
print "berapa umur anda?\n";
print "umur anda: "
$umur=<STDIN>;
chomp($umur); 
if($umur <= 13) # if-elsif-else
    {
     print "anda masih anak anak \n"; 
    } 
elsif($umur <= 20) 
    { 
     print "anda masih remaja \n"; 
    } 
else 
    {
     print "anda sudah dewasa \n"; 
    } 




Sedangkan untuk unless kebalikan dari if yaitu perintah akan dijalankan jika kondisi tidak terpenuhi.




unless tunggal


unless(ekspresi_kondisi)

{
Perintah;
} 



unless - else
unless(ekspresi_kondisi)

{
Perintah1;
} 

else 

{
Perintah2;
} 






Contoh dalam program :




#!/usr/bin/perl
# contoh percabangan unless
# nama program : percabangan_unless.pl 
$spp="belum lunas";

unless($spp eq "lunas") # unless tunggal
{
print "anda belum bayar spp\n";
} 
print "\n"; # spasi
print "berapa jumlah sks yang sudah anda ambil ? \n";
print "sks anda : ";
$sks=<STDIN>;
chomp($sks); 
unless($sks > 100) # unless - else
{
print "anda belum boleh mengambil kerja praktek\n";
} 
else
{
print "anda sudah bisa mengambil kerja praktek\n";
} 



 


Looping / perulangan

Untuk mengulang suatu blok perintah digunakan perulangan. Perulangan di perl antara lain statemen for, foreach, while, do - while, until dan do - until. Untuk lebih jelasnya kita akan bahas satu per satu :




Perulangan for

For di perl sama seperti for di bahasa C/C++ maupun bahasa C like lainya. Bentuk unumnya adalah sebagai berikut :
for(keadaan awal ; syarat keadaan akhir ; increment/decrement)
   {
     daftar statement;
   } 

Perulangan foreach

Anda masih ingat dengan array? Bila tadi untuk statement for, pengulangan nya ditentukan berdasarkan inkrementasi, maka untuk statement foreach, pengulangannya ditentukan oleh jumlah anggota array. Anda masih ingat bukan bahwa jumlah anggota array dapat dihitung dengan menggunakan @array. Inilah yang digunakan sebagai pengendali bila anda membuat pengulangan dengan statement foreach
foreach $varname(array)
    {
      daftar statement;
    } 



Perulangan while

Berbeda dengan statement for dan foreach, statement while digunakan bila kita ingin mengendalikan proses pengulangan bukan berdasarkan jumlah pengulangannya , melainkan berdasarkan suatu syarat. Selama syarat tersebut masih terpenuhi, pengulangan akan terus berlangsung. Tetapi bila syarat tidak lagi terpenuhi, perulangan akan berhenti.
while(ekspresi)
   {
    daftar statement;
   } 



Perulangan do - while

Statement do - while tidak jauh berbeda dengan statement while. Prinsip kerjanya sama, tetapi strukturnya adalah sebagai berikut :
do {
    daftar statement;
    } while ekspresi; 



Perulangan until

Statement until juga menggunakan syarat tertentu sebagai pengendali pengulangan. Berbeda dengan statement while, pada statement until pengulangan justru dilakukan selama syarat tidak dipenuhi. Begitu syarat dipenuhi, pengulangan akan berakhir. Strukturnya sebagai berikut :
until(ekspresi)
   {
    daftar Statement;
   } 



Perulangan do - until

Statement do - until tidak berbeda fungsinya dengan statement until, oleh karena itu kita tidak akan membahasnya lebih jauh. Strukturnya sendiri adalah sebagai berikut :
do {
    daftar statement;
    } until ekspresi; 


 Subrutin / fungsi



Subrutin merupakan sebuah potongan program yang dapat dipanggil berulang-ulang dan yang melakukan suatu operasi tertentu saja. Suatu subrutin akan memiliki sebuah nama, dan bisa menerima suatu parameter untuk operasinya dan dapat pula menghasilkan suatu nilai hasil dari operasinya. Untuk mendefinisikan suatu subrutin pada perl, dapat menggunakan sintak sebagai berikut :


Sub nama_subrutin
   {
    Perintah perintah;
  
    .................
   } 

Sedangkan untuk memanggil subrutin dapat digunakan beberapa cara antara lain :
nama_subrutin();


& nama_subrutin();

do nama_subrutin(); 

berikut contoh programnya :
#!/usr/bin/perl
# contoh penggunaan subrutin
# nama program : subrutin1.pl
##### pembuatan subrutin ######

sub selamat_datang{
print "selamat datang di perl\n";
print "perl is simple\n";
}
sub hallo{
print "hallo ,";
print "apa kabar ?";
}
sub spasi{
print "\n";
}
##### pemangilan subrutin ######

hallo();
spasi();
& hallo();
& spasi();
do selamat_datang();
do spasi();

oke guys seperti nya itu cukup membuat anda mengerti oke bye wkwkwkkw

Belajar Kuy..

Belajar Kuy

Artikel

Selasa, 01 November 2016

BELAJAR PERL KUY..

About Sunsugos

Tidak ada komentar:

Popular Posts

Like on Facebook

Kategori

Kategori

Mengenai Saya

Formulir Kontak

Arsip