[perl] 펄로 MySQL 사용하기

#!/usr/local/mobigen/CrediMail/perl/bin/perl -w

BEGIN {

#$ENV{{IB_PATH} = "/usr/local/mobigen/mysql/lib/mysql";

#$ENV{LD_LIBRARY_PATH} = "/usr/local/mobigen/mysql/lib/mysql";

    push @main::INC, ".";

    push @main::INC, "/usr/local/mobigen/CrediMail/modules";

};

use strict;

use mobigen;

use DBI;

MAIN:

{

    if (! @ARGV) {

        print "Usage : $0 userid \n";

        exit(0);

    }

    my $db = DBI -> connect("DBI:mysql:database=private_db:host=localhost","id","password",{'RaiseError'=> 1}); #알맞게 수정하세요

    print "DB_CONNECT SUCCESS\n";

    my $sql = "SELECT * FROM TABLE";

    my $sth = $db->prepare($sql);

    $sth->execute();

    print "DB_SELECT MAILBOX\n";

    my $mailbox ={};

    while (my @row_ref = $sth->fetchrow_array){

        $mailbox->{$row_ref[0]} = $row_ref[1]} ;

    }

    $sth->finish;

    $db->disconnect();

}