perl 로 Oracle 방문

2998 단어 Oacleperl
1) CPAN 을 설치 하기 전에 오 라 클 클 클 라 이언 트 를 먼저 설치 해 야 한다.
2) 오 라 클 클 클 라 이언 트 를 설치 한 후 tnsnames. ora 를 설정 해 야 합 니 다.sqlplus 로 이 Oracle 인 스 턴 스 를 방문 할 수 있 는 지 테스트 해 보 세 요.
3) DBI 와 DBD:: Oracle 을 설치 한 후 perl 이 Oracle 을 방문 하 는 코드 는 다음 과 같다.

  
  
  
  
  1. #!/usr/bin/perl  
  2.  
  3. use DBI;  
  4.  
  5. $dbh = DBI->connect("dbi:Oracle:myoradb""idata""123456"or die("DB connect error!
    "
    );  
  6.  
  7. $sql = "select * from dual";  
  8.  
  9. $sth = $dbh->prepare($sql);  
  10.  
  11. $sth->execute() or die("error!");  
  12.  
  13. while(@rows = $sth->fetchrow_array)  
  14.  
  15. {  
  16.  
  17.         foreach(@rows)  
  18.  
  19.         {  
  20.  
  21.                 print "$_\t";  
  22.  
  23.         }  
  24.  
  25.         print "
    "
    ;  
  26.  
  27. }  
  28.  
  29.  
  30. $sth->finish;  
  31.  
  32. $dbh ->disconnect();  
  33.  
  34. exit 0;  

좋은 웹페이지 즐겨찾기