1)在安装CPAN前,需要首先安装Oracle-Client。
2)安装好Oracle-Client后,要配置tnsnames.ora。用sqlplus测试一下确实可以访问到这个Oracle实例。
3)安装好DBI和DBD::Oracle后,perl访问Oracle的代码如下:
- #!/usr/bin/perl
- use DBI;
- $dbh = DBI->connect("dbi:Oracle:myoradb", "idata", "123456") or die("DB connect error!\n");
- $sql = "select * from dual";
- $sth = $dbh->prepare($sql);
- $sth->execute() or die("error!");
- while(@rows = $sth->fetchrow_array)
- {
- foreach(@rows)
- {
- print "$_\t";
- }
- print "\n";
- }
- $sth->finish;
- $dbh ->disconnect();
- exit 0;