Modul Perl yang diperlukan

Agar program Perl bisa connect ke Posgres diperlukan modul tambahan Perl sebagai berikut:

1. DBI
2. DBD::Pg

Instalasi Modul di Linux

Untuk sistem operasi Linux, installasi modul sangat mudah dilakukan, yaitu dengan menggunakan program RPM, Yum, dan sebagainya.

Sebagai contoh untuk menginstall modul DBD::Pg, lakukan langkah-langkah sbb:

Cari nama package modul jika belum diketaui secara pasti.

# yum search perl-dbd

hasilnya misalnya (bisa beda-beda setiap komputer):

Loading "fastestmirror" plugin
Loading mirror speeds from cached hostfile  * base: centosq2.centos.org  * updates: centosw.centos.org  * addons: centosk2.centos.org  * extras: centosw.centos.org
perl-DBD-Pg.x86_64 : A PostgresSQL interface for perl
perl-DBD-MySQL.x86_64 : A MySQL interface for perl

Dari hasil pencarian tersebut dapat diketahui nama file modul yang perlu diinstal secara pasti, yaitu perl-DBD-Pg.x86_64.

Jalankan perintah install sebagai berikut:

# yum install perl-DBD-Pg.x86_64

Pastikan tidak ada pesan error. Jika sudah sukses, maka modul DBD::Pg siap digunakan. Modul DBI umumnya sudah diinstall secara default. Namun jika belum (diketahui dari pesan error saat install DBD::Pg) maka lakukan langkah yang sama seperti di atas untuk modul DBI.

Instalasi Modul di Windows

Untuk Sistem operasi Windows gunakan ActiveState Perl. Pada program tersebut terdapat program utiliti ppm (perl package manager) yang dapat digunakan untuk mengelola modul.

Script Koneksi PostgreSQL

Langkah pemanggilan fungsi yang perlu dilakukan oleh script Perl untuk konek dan query ke Postgres adalah:

1. function $dbh = DBI->connect()
2. function $sth = dbh->prepare($sql)
3. function $sth->execute;
4. jika diperlukan untuk mengambil data: function $sth->fetchrow()

Langkah pertama adalah memanggil modul DBI untukmelakukan koneksi ke database.  Seacara lengkap sintaksnya adalah :

$dbh = DBI->connect("dbi:Pg:dbname=namadatabase", 'namauser', 'password', {AutoCommit => 1});

Dimana paramenter pertama “dbi:Pg:dbname=namadatabase” adalah parameter koneksi ke server. Dapat ditambahkan dengan string hostname dan port yang jika tidak dicantumkan maka diasumsikan localhost port 5432.

Parameter kedua dan ketiga adalah nama user database dan password nya yang digunakan untuk melakukan koneksi.

Parameter ke empat {AutoCommit => 1} adalah option yang menentukan apakah setiap query akan otomatis di commit atau tidak. Jika Tidak maka perlu dijalanlan function $dbh->commit().

Setelah berhasil konek, langkah selanjutnya adalah mempersiapkan SQL statement yang akan dikirimkan ke server. Perintah selengkapnya misalnya sbb:

$sql = "select * from namatable";
$sth = $dbh->prepare($sql);

Setelah dipersiapkan, maka panggil function execute untuk mengeksekusi SQL:

$sth->execute;

Jika SQL yang dijalankan mengeluarkan hasil (misalnya SQL SELECT), maka data yang dihasilkan ditangkap dengan menggunakan function $sth->fetchrow() yang dilooping sampai dengan data tersebut habis, sebagai berikut:

while ( my @row = $sth->fetchrow() )
{
     print $row[0] , $row[0];
}

Untuk SQL yang tidak mengeluarkan hasil (misalnya SQL INSERT, UPDATE), maka tidak perlu dilakukan pemanggilan function fetchrow().

Akhmad Daniel Sembiring

vITraining.com – Qualified IT Products, Outsourcing, and Services

Ligarwangi.com – Linux, E-book, Coffee, Gift, etc

Modul yang diperlukan

Agar script perl bisa membaca file XLS, maka diperlukan modul tambahan sbb:

1. Module-Build (jika belum diinstall secara default, diperlukan untuk meng-compile dan install modul-modul lainnya dibawah ini)
2. Spreadsheet::ParseExcel;
3. OLE-Storage
4. IO-stringy

Installasi Modul

Agak rumit tapi bisa. Rumitnya karena modul-modul tersebut belum ada package nya sehingga tidak bisa diinstall menggunakan Yum dan kawan-kawan.

Jadi masing-masing modul harus diinstall secara manual menggunakan Makefile yang terdapat di masing-masing source code module tersebut.

Langkah pertama adalah download modul ybs. Misalnya Spreadsheet::ParseExcel. Lokasi downloadnya dapat dicari dari search.cpan.org. Cari nama modul di kolom search. Kemudian lihat di bagian Download link (di sebelah kanan halaman).

Copy link tersebut lalu download menggunakan program download yang anda sukai, misalnya wget.

# wget http://search.cpan.org/CPAN/authors/id/S/SZ/SZABGAB/Spreadsheet-ParseExcel-0.33.tar.gz

Jika sudah berhasil download, maka extract file tersebut ke sembarang direktori.

# tar xvfpz Spreadsheet-ParseExcel-0.33.tar.gz

Lalu masuk ke direktori hasil extract:

# cd Spreadsheet-ParseExcel-0.33

Baca cara installnya pada file README (atau INSTALL).  Menurut file tersebut, cara installnya ada beberapa model:

INSTALLATION
The module can be installed using the standard Perl procedure:
perl Build.PL
./Build
./Build test
./Build install

or
perl Makefile.PL
make
make test
make install

# You may need to be root
make clean      # or make realclean

or using CPAN.pm or CPANPLUS.pm
cpan Spreadsheet::ParseExcel

Misalnya kita ambil cara pertama, maka langkah yang dilakukan adalah menjalankan perintah:

# perl Build.PL

Setelah sukses, lanjutkan ke perintah:

# ./Build

Kemudian perintah:

# ./Build test

Diakhiri dengan perintah (untuk yang ini anda harus login sebagai root):

# ./Build install

Setelah sukses install, maka modul ini sudah siap digunakan. Lakukan installasi modul yang lainnya (OLE-Storage dan IO-stringly)  dengan cara yang sama seperti di atas.

Contoh Script untuk Membaca Excel

1. use Spreadsheet::ParseExcel;

2. my $oExcel = new Spreadsheet::ParseExcel;

3. my $oBook = $oExcel->Parse($file);

4. my($iR, $iC, $oWkS, $oWkC);

5. for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++) {

6.     $oWkS = $oBook->{Worksheet}[$iSheet];

7.     for(my $iR = $oWkS->{MinRow};

8.         defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow};

9.         $iR++)    {

10.             my $a = $oWkS->{Cells}[$iR][0];

11.             my $b = $oWkS->{Cells}[$iR][1];

12.             print $a->Value, " ", $b->Value;

13.         }

14. }

Baris 1, adalah pemanggilan modul Spreadsheet::Excel. Baris 2 adalah pendefinisian object variabel yang merepresentasikan pemroses file Excel. Baris 3 mendefinisikan Workbook Excel yang hendak dibaca yang nama filenya ditentukan diparameter.

Baris 4 adalah definisi variabel lokal yang akan digunakan selama proses pembacaan file yaitu: $iR indeks baris, $iC indeks kolom, $oWkS suatu worksheet, dan $oWkC suatu cell.

Baris 5 adalah looping untuk setiap worksheet yang ada pada file Excel yang dibaca. Baris 6 untuk setiap worksheet yang terbaca, simpan referensinya ke variabel $oWkS.

Baris 7 looping untuk setiap baris yang terdapat pada worksheet yang sedang dibaca dimulai dari baris yang paling kecil ($oWkS->{MinRow}) sampai dengan baris terakhir ( $oWkS->{MaxRow} ). Yang dilakukan setiap looping baris adalah membaca isi cell pada baris tersebut, yaitu dengan cara  $oWkS->{Cells}[$iR][0] seperti pada baris 10 dan 11, dimana array yang kedua (dalam hal ini 0) adalah indeks kolom pada baris tersebut, dimulai dari 0.

Terakhir adalah mengambil nilai pada cell tersebut dengan cara memanggil properti Value object cell seperti pada baris 12.

Akhmad Daniel Sembiring

vITraining.com – Qualified IT Products, Outsourcing, and Services

Ligarwangi.com – Linux, E-book, Coffee, Gift, etc