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