Function di Perl

Hampir satu bulan saya tidak meng-update blog dan hari ini kebetulan saya lagi menulis beberapa skrip untuk keperluan kantor.

Beberapa bagian saya sudah lupa karena lama tidak menggunakan skrip tersebut. Skripnya adalah bagaimana menulis fungsi dan memanggil dalam program.


=head1 NAME

Lib::Function.pm - Perl module that will be used to populate all function

=head1 SYNOPSIS

B<use Lib::Function.pm>

=head1 LICENSE

This code is copyright by Askari Azikin <I<askari.azikin@ericsson.com>>,
This program comes with ABSOLUTELY NO WARRANTY.
You are free to redistribute this code under the terms of the GNU
General Public License, version 2 or later.

=head1 AUTHOR

Askari Azikin <askari.azikin@ericsson.com>

Copyright (C) 2017

Revision History:

* Apr 16, 2017 Askari Azikin First Draft

=cut

package Lib::Function;

use strict;
use warnings;

sub new
{
     my $class = shift;
     my $self = {
            outfile => shift,   # to store scalar variable
            result_array => [], # to store array variable
     };
     bless ($self, $class);
     return $self;
}

sub write_to_file_format1
{
    my ($self, $outfile, @result) = @_;
    $self->{outfile} = $outfile if defined($outfile);
    push (@{$self->{result_array}}, @result);

    open (FH, '>', $self->{outfile}) or die "open FH filehandle failed $!";
    for (@{$self->{result_array}})
    {
        print FH $_;
    }
    close(FH);
}

1;

Untuk memanggil fungsi di atas dapat menggunakan skrip berikut.


$call_func->write_to_file_format1($result_file, @result);

 

Making an argument as optional in Python function

Sometimes we need to make an argument as optional so that people using the function can choose to provide extra information only if they want to.

For example, say we want to expand get_user_name() in the previous topic to handle middle names as well.

Here is the python code to fulfill the the requirement above:


#!/usr/bin/python

# Give the middle_name argument an empty default value and ignore
# the argument unless the user provides a value,
# We set default value of middle_name to an empty string and 
# move it to the end of the list parameters

def get_user_name (first_name,last_name,middle_name=''):
    """ Return a full name"""
    if middle_name:
       full_name = first_name + ' ' + middle_name + ' ' +last_name
    else:
        full_name = first_name + ' ' +last_name
 
    return full_name.title()
 
my_user_name = get_user_name('Askari','Azikin')
my_completed_user_name = get_user_name('Askari','Azikin','Basa')
 
print(my_user_name)
print(my_completed_user_name)

Penulisan Fungsi di Python dan di Perl

Fungsi di bahasa pemrograman berfungsi untuk menghindari penulisan kode program yang berulang sehingga untuk melakukan sebuah fungsi atau perintah tertentu cukup dituliskan satu kali saja.

Berikut penulisan fungsi di Python dan di Perl:

Di bahasa Python fungsi selalu diawali dengan kata ‘def’

#!/usr/bin/python

def get_user_name (first_name,last_name):
    full_name = first_name + ' ' + last_name
    return full_name.title() # or return full_name

my_user_name = get_user_name('Askari','Azikin')
print (my_user_name)

Sedangkan di bahasa Perl, fungsi selalu diawali dengan kata ‘sub’. karakter ‘$$’ menunjukkan bahwa fungsi tersebut akan menerima inputan sebanyak dua variabel skalar. karakter ini bersifat opsional saja sehingga bisa saja tidak dituliskan. Sedangkan ‘@_’ bisa juga diganti dengan ‘shift’ dimana keduanya untuk menerima masukan/input untuk selanjutnya diproses di dalam fungsi tersebut.

#!/usr/bin/perl -w

sub get_user_name ($$)
{
   my ($first_name, $last_name) = @_;
   my $full_name = "$first_name $last_name";
   return $full_name;
}

my $user_name = get_user_name ('Askari', 'Azikin');
print "$user_name\n";

Python untuk Perl Programmer

Karena kebutuhan untuk big data, saya mulai mendalami Python namun Perl tentu saja masih menjadi bahasa favorit saya.

Mudahan-mudahan ada kesempatan untuk membuat buku dengan judul ‘Python untuk Perl Programmer’. Berikut perbandingan kode program untuk menghasilkan keluaran yang sama.

Perl

Python