(Perl) (Debian-Perl) Linux 에서 MS-SQL 연결하기

요즘 Perl 짓을 조금 하고 있는 중이다. 어쩌다 보니, MS-SQL도 사용하게 되었는데, 여러가지 방법이 있었지만, FreeTDS를 이용하는 것이 가장 간편한 것 같아서 정리해보았다.

• Install FreeTDS

  # apt-get install freetds-*
  

• Install Sybase module

  # apt-get install libdbd-sybase-perl
  

• /etc/freetds/freetds.conf 수정

  ...
  [Our-MS-SQL]
      host = 아이피주소
      port = 1433
      tds version = 7.0
  ...
  

• 예제 코드

  #!/usr/bin/env perl
   
  use DBI;
   
  my ($dbh, $sth, $sql);
  
  $dbh = DBI->connect("DBI:Sybase:server=Our-MS-SQL; database=디비이름", "아이디", "비밀번호") || die $DBI::errstr;
   
  $sql = " insert users ( id, name, mobile ) values (1, 'My Name', '010-2654-5555') ";
  $sth = $dbh->prepare($sql);
  $sth->execute();
   
  $sth->finish();
  $dbh->disconnect();