perl : mssql 디비 접속하기

틈틈히 시간을 내서 펄을 공부하고 있습니다.
진득하니 책을 보면서 차례로 공부를 해야 하겠지요.
그런데 이게 성격이 급해서 그런지 대충대충 하고 싶은 것만 보게 되네요.

odbc로 mssql디비와 연결하는 예제입니다.
요즘에는 odbc를 잘 안쓰는데 한글 자료가 별로 없군요.
영어는 딸려서 --;

일단 커맨드라인에서 cpan을 치고 install DBI를 입력해서 관련 모듈을 다운받아야 합니다.

 1 #!C:\istrawberry\perl\bin\perl.exe


 2 


 3 use DBI;


 4 


 5 $server = "(local)";


 6 $db = "temp";


 7 $uid = "sa";


 8 $pwd = "xxxx";


 9 $cn = "DBI:ODBC:Driver={SQL Server};server=$server; database=$db; uid=$uid; pwd=$pwd";


10 $db = DBI -> connect($cn);


11 


12 $sql = "select * from dbo.programs";


13 $cmd = $db -> prepare($sql);


14 $cmd -> execute();


15 


16 while ($rs = $cmd -> fetchrow_hashref()){


17     print $rs -> {"pID"} . "\t"


18         . $rs -> {"programID"} . "\t"


19         . $rs -> {"program"} . "\n";


20 }


21 


22 $cmd -> finish();


23 $db -> disconnect();