#keywords MS-SQL,ODBC,Perl,데이터베이스
(리눅스 환경)먼저 cpan을 치고 install DBI, install DBD::ODBC로 관련 모듈을 설치한다. (i DBI, i DBD::ODBC로 설치 유무 확인해도 좋고.)
윈도우 환경에서는 Win32:: 에 같은 모듈이 있다.
{{{#!gcode
#!/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
}}}