Perl安装和使用DBI

概述还可以从cpan.perl.org站点下载tar压缩文件形式的源代码发行版本，解压缩后，切换到相应的文件目录cd DBI-1.54perl Makefile.PLmakemake testmake install安装DBD时候 需要export ORACLE_HOME验证安装:perldoc DBD::Oracleperldoc DBI在线文档；perldoc -m

还可以从cpan.perl.org站点下载tar压缩文件形式的源代码发行版本，解压缩后，切换到相应的文件目录cd DBI-1.54perl Makefile.PLmakemake testmake install安装DBD时候 需要export ORACLE_HOME验证安装:perldoc DBD::Oracleperldoc DBI在线文档；perldoc -m DBIperl DBI版本:perl -MDBI -le 'print $DBI::VERSION;'查看安装路径:[oracle@DWh1 ~]$ perldoc -l DBI/usr/local/lib64/perl5/DBI.pm配置用户环境变量:export ORACLE_OWNER=oracleexport ORACLE_BASE=/oracle/appexport ORACLE_HOME=/oracle/app/product/11.2.0/db_1export ORACLE_SID=DWh1export LD_liBRARY_PATH=$ORACLE_HOME/lib:/usr/libexport NLS_DATE_FORMAT="YYYY-MM-DD"export PATH=/usr/lib64/qt-3.3/bin:/usr/kerberos/bin:/usr/local/bin:/bin:/usr/bin:/home/oracle/bin:/oracle/app10g/product/10.2.0/db/bin######################################################export LC_CTYPE=en_US.UTF-8export NLS_LANG=AMERICAN_AMERICA.ZHS16GBKCLAsspATH=$ORACLE_HOME/JRE:$ORACLE_HOME/jlib:$ORACLE_HOME/rdbms/jlib;export CLAsspATHexport JAVA_OPTS=-Djava.awt.headless=true#!/usr/bin/perl use strict;use DBI;my $dbname = 'dev2';my $dbUser = 'hr';my $dbUserPass = 'hr';my $dbh = DBI->connect("dbi:Oracle:$dbname",$dbUser,$dbUserPass) or dIE "can't connect to database " . $DBmy $hostsql = qq{select table_name,tablespace_name,status from user_tables};#你用print是打印SQL语句和sth对象，看到这个说明没有错误#另外，perl中打印对象或其它复杂@R_502_6722@最好用use Data::Dumper;print Dumper $obj;这种形式，要不你就只能看到HA#$dbh->prepare($sql),只是生成了一个statement handle对象而已，该对象调用execute后，通过它的fetchrow_array()就#my $sql = "select count(*) from dba_users";print "$sql..\n";my $sth = $dbh->prepare($sql);print "$sth..\n";$sth->execute();my $count = $sth->fetchrow_array();print "$count....\n";$sth->finish;my ($table_name,$tablespace_name,$status);my $selStmt = $dbh->prepare($hostsql);$selStmt->bind_columns(undef,$table_name,$tablespace_name,$status);$selStmt->execute();while( $selStmt->fetch() ){  print "$table_name\t\t$tablespace_name\t\t$status\n";}$selStmt->finish;$dbh->disconnect;

总结

以上是内存溢出为你收集整理的Perl安装和使用DBI全部内容，希望文章能够帮你解决Perl安装和使用DBI所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。