Perl : 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();