#!/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();
}
'업무 > Perl' 카테고리의 다른 글
[perl] 버클리DB (dbf) 읽는 함수 (0) | 2011.11.25 |
---|---|
[perl] GUI 프로그램 - Wx 인스톨 절차 (0) | 2011.11.09 |
[perl] 한라인으로 배열 출력 (0) | 2011.10.26 |
[perl] 정규식 옵션 (0) | 2011.10.21 |
[perl] 현재 날짜 출력하기 (0) | 2011.10.21 |