日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

用perl访问Oracle

發布時間:2025/5/22 编程问答 19 豆豆
生活随笔 收集整理的這篇文章主要介紹了 用perl访问Oracle 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

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; ?
  • ?

    轉載于:https://blog.51cto.com/idata/943419

    總結

    以上是生活随笔為你收集整理的用perl访问Oracle的全部內容,希望文章能夠幫你解決所遇到的問題。

    如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。