develop:perl:oracle

차이

문서의 선택한 두 판 사이의 차이를 보여줍니다.

차이 보기로 링크

--- develop:perl:oracle [2017/05/29 14:37] – [사전작업] starlits
+++ develop:perl:oracle [2025/10/03 22:30] (현재) – 바깥 편집 127.0.0.1
@@ 줄 4: / 줄 4: @@
   - apt-get 을 이용하여 패키지 설치 <code>
 # apt-get install libdbi-test-perl libdbix-abstract-perl make
+</code> <code>
+# apt-get install python3 python-dev python3-dev \
+     build-essential libssl-dev libffi-dev \
+     libxml2-dev libxslt1-dev zlib1g-dev \
+     python-pip
 </code>
+===== DBD::Oracle 설치 =====
+  - http://cpan.org 에서 DBD::Oracle 모듈을 설치한다.
+  - http://search.cpan.org/~pythian/DBD-Oracle-1.74/lib/DBD/Oracle.pm
+  - 컴파일해서 설치한다. <code>
+$ perl Makefile.PL
+$ make
+$ sudo make install
+</code>
+===== Oracle Database Instant Client Installation =====
+  - [[dbms:oracle:admin:instantclient | Oracle Database Instant Client Installation ]] 을 참고한다.
 ===== sample code test =====
   - <code perl>
@@ 줄 31: / 줄 47: @@
 #my $dbh = DBI->connect ("DBI:Oracle:host=$hostip;sid=$sid", $username, $password, \%attr);
-my $que = "select itemcode from tb_item where rownum < 5";
+my $que = "select table_name from tabs where rownum < 5";
-my $itemcode;
+my $table_name;
 #
 my $sth = $dbh->prepare($que);
 $sth->execute() || die $sth->errstr;
-while( ($itemcode) = $sth->fetchrow() ) {
+while( ($table_name) = $sth->fetchrow() ) {
-    print "select * from tb_studyunit where itemcode=$itemcode ;\n";
+    print "$table_name\n";
 }
 $sth->finish();

develop/perl/oracle.1496038045.txt.gz · 마지막으로 수정됨: 2025/10/03 22:30 (바깥 편집)