(리눅스 환경)먼저 cpan을 치고 install DBI, install
DBD::ODBC로
관련 모듈을 설치한다. (i DBI, i
DBD::ODBC로
설치 유무 확인해도 좋고.)
윈도우 환경에서는
Win32::
에 같은 모듈이 있다.
#!/usr/bin/perl # # 2011.04.18. y_hyacinth@hotmail.com # use strict; use warnings; use Devel::Peek; use Encode; use LWP::Simple; use DBI; my $server = "220.230.6.189"; my $db = "MyTest"; my $uid = "sa"; my $pwd = "pwd"; my $cn = "DBI:ODBC:Driver={SQL Server};server=$server; database=$db; uid=$uid; pwd=$pwd"; $db = DBI->connect($cn) or die "$DBI::errstr"; my $sql = "select * from Table_1"; my $cmd = $db->prepare($sql); $cmd->execute(); binmode STDOUT, ':encoding(euc-kr)'; while (my $rs = $cmd->fetchrow_hashref()) { print $rs->{'Name'}."\n"; } $cmd->finish(); $db->disconnect();
rhealove@rhealove-PC ~ $ perl my.pl 메롱 메롱2 바보야2 지지 멍멍이 야옹이 abcd asdf asdf
MS-SQL
ODBC
Perl
데이터베이스
Retrieved from http://hyacinth.byus.net/moniwiki/wiki.php/Perl/MS-SQL 접속 및 쿼리(ODBC)
last modified 2011-04-18 14:30:00