Perl/MS-SQL 접속 및 쿼리(ODBC) Edit Diff Refresh Backlink Random Search History Help Setting Hide Show (리눅스 환경)먼저 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 데이터베이스 이 글에는 0 개의 댓글이 있습니다. Please enable JavaScript to view the comments powered by Disqus. comments powered by Disqus
