Perl 스크립트 / / 2015. 8. 8. 09:16

Perl과 MSSQL 연동해서 SELECT 쿼리 날리는 방법

Perl과 MSSQL 연동해서 SELECT 쿼리 날려서 그 결과를 query_out.txt 파일에 출력하기


빨간색 글씨의 DBName, Server IP, ID, PASSWORD, 테이블명은 알맞게 수정해야 함




use DBI;


my $dbs = "dbi:ODBC:driver={SQL Server};database=DBName;server=Server IP";

my ($username, $password) = ('ID', 'PASSWORD');


my $dbh = DBI ->connect($dbs, $username, $password);




    #write code here

print "MSSQL Connection Successful ^^\n";

$query = "SELECT * FROM 테이블명";

$sth = $dbh->prepare ($query) or die "prepare failed\n";

$sth->execute( ) or die "unable to execute query $query   error $DBI::errstr";

 open WFILE,">./query_out.txt";

while ( @first = $sth->fetchrow_array ) {

   foreach $field (@first) {

      print WFILE "field: $field\n";

   }

}

 close WFILE;

 

$dbh->disconnect;


system q[notepad query_out.txt];  

  • 네이버 블로그 공유
  • 네이버 밴드 공유
  • 페이스북 공유
  • 카카오스토리 공유

댓글을 달아 주세요

TistoryWhaleSkin3.4">