출처 : http://www.ihelpers.co.kr/programming/q ··· x%3D61901. mysql 연동을 위한 DBI, DBD 연동DBI와 DBD는 관리자가 설치할수 있습니다. 이 부분은 관리자에게 전화또는 메일을 보내 설치 요청을 하셔야 할 것 같습니다.2. DBI,DBD설치 확인% perldoc DBI or DBD 로 확인하시면 됩니다.3. 예제#!/usr/bin/perluse DBI;my $dbh = DBI->connect("DBI:mysql:database=intra;host=localhost","아이디"...
search results for 'perl-mysql'
- 2008/10/15 [펌] Perl DBI,DBD Mysql 연동 (2)
comment
추가 사항 !
*** Oracle 환경변수 저장파일 ***
use DBI;
BEGIN {
$ENV{ORACLE_HOME} = '/oracle';
$ENV{TWO_TASK} = 'tnsnames';
$ENV{NLS_LANG} = 'American_America.US7ASCII';
}
$dbh = DBI->connect('dbi:Oracle:','scott', 'tiger' , { AutoCommit => 0})
*** msql 환경변수 저장파일 ***
use DBI;
$dbname = "mSQL";
$databasename = "test";
$hostname = "168.126.63.119";
$dbh = DBI->connect("DBI:$dbname:$databasename:$hostname", undef, undef);
my $names = $sth->{'NAME'};
#print "names : $names\n";
my $numFields = $sth->{'NUM_OF_FIELDS'};
#print "numFields : $numFields\n";
for (my $i = 0; $i < $numFields; $i++) {
printf("%s%s", $i ? "," : "", $$names[$i]);
}
print "\n";
while (my $ref = $sth->fetchrow_arrayref) {
for (my $i = 0; $i < $numFields; $i++) {
printf("%s%s", $i ? "," : "", $$ref[$i]);
}
print "\n";
}
$sth->finish;
$dbh->disconnect();
exit;