Perl操作Oracle
2024-09-28 05:15:02
一、 perl连接Oracle数据库
- [oracle@oracle11gR2 perl_script]$ more connect.pl
- #!/usr/bin/perl
- #perl script used to connect to Oracle
- use strict;
- use DBI;
- my $tnsname="ora11gR2";
- my $username="scott";
- my $password="tiger";
- my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password) or die "Cannot conenct db: $DBI::errstr\n";
- print "I have connected to the Oracle database!\n";
- $dbh->disconnect or warn "DB disconnect failed: $DBI::errstr\n";
- print "Disconnected from Oracle databae!\n";
- [oracle@oracle11gR2 perl_script]$ ./connect.pl
- I have connected to the Oracle database!
- Disconnected from Oracle databae!
二、向数据库插入数据
- [oracle@oracle11gR2 perl_script]$ more insert.pl
- #!/usr/bin/perl
- # this code is used to insert data to Oracle Database
- use strict;
- use DBI;
- my $id = 2;
- my $name = "denver";
- my $dbh = DBI->connect("dbi:Oracle:ora11gR2", "test","test") or die " Cannot connect db: $DBI::errstr\n";
- my $sql = qq{INSERT INTO m VALUES(?,?)};
- my $sth = $dbh->prepare($sql);
- $sth->execute($id, $name);
- print "I have inserted the record!\n";
- $dbh->disconnect or warn "DB disconnect failed: $DBI::errstr\n";
- [oracle@oracle11gR2 perl_script]$ ./insert.pl
- I have inserted the record!
- [oracle@oracle11gR2 perl_script]$
三、删除数据
- [oracle@oracle11gR2 perl_script]$ more delete.pl
- #!/usr/bin/perl
- # Delete Data From Oracle Database
- use strict;
- use DBI;
- my $id=2;
- my $dbh = DBI->connect("dbi:Oracle:ora11gR2", "test", "test") or die "Cannot connect db: $DBI::errstr\n";
- my $sql = qq{DELETE FROM m WHERE id=$id};
- my $sth = $dbh->prepare($sql);
- $sth->execute();
- print "I have deleted the record!\n";
- $dbh->disconnect or warn "DB disconnect failed:$DBI::errstr\n";
- [oracle@oracle11gR2 perl_script]$ ./delete.pl
- I have deleted the record!
四、查询
- [oracle@oracle11gR2 perl_script]$ more select.pl
- #!/usr/bin/perl
- # Here is an example code piece to select data from Oracle
- use strict;
- use DBI;
- my $host = "localhost";
- my $sid = "denver";
- my $dbh = DBI->connect("dbi:Oracle:ora11gR2", "test", "test") or die "Cannot connect db:$DBI::errstr\n";
- print "I have connected to the Oracle 11g R2 database!\n";
- my $sql = qq{SELECT id, name FROM m};
- my $sth = $dbh->prepare($sql);
- $sth->execute();
- my ($pid, $pname); #declare columns
- $sth->bind_columns(undef, \$pid, \$pname);
- print "The results are:\n\n";
- while ( $sth->fetch() ) { #fetch rows from DataBase
- print "ID:$pid, --- NAME:$pname\n";
- }
- $sth->finish();
- $dbh->disconnect or warn "DB disconnect failed: $DBI::errstr\n";
- [oracle@oracle11gR2 perl_script]$ ./select.pl
- I have connected to the Oracle 11g R2 database!
- The results are:
- ID:0, --- NAME:**e
- ID:1, --- NAME:**e
- [oracle@oracle11gR2 perl_script]$
最新文章
- [Maven] - 安装与Eclipse搭建
- Java对象序列化文件追加对象的问题,以及Java的读取多个对象的问题解决方法。
- 李洪强iOS开发之OC语言类的深入和分类
- Wcf简单实例1
- OVERLAY代码重入
- maven02 命令
- 使用python实现群发邮件
- jquery - append prepend after before animate clearQueue stop
- java类型的小知识List 等
- 洛谷P1494 【[国家集训队]小Z的袜子】
- centos7 微信安装
- Dependency injection configurations into views in asp.net core
- 一、Delphi中Cxgrid表格滚动条粗细设置
- SXH232摄像头使用示范
- JS实现随机数生成算法示例代码
- WebForm中使用MVC
- solr7之solrJ的使用
- 10、Node.js模块系统
- java web 程序---注册页面密码验证
- Lambda01 编程范式、lambda表达式与匿名内部类、函数式接口、lambda表达式的写法
热门文章
- Casual Note of OS
- 初学Android的几个常见问题
- Qt中QString::toStdString().c_str() 偶尔存在问题
- Axure RP Pro 7.0 注册码
- Linux高级字符设备驱动 poll方法(select多路监控原理与实现)
- JDBC的MySQL配置properties文件
- applicationContext.xml报错org.springframework.orm.hibernate3.LocalSessionFactoryBean not found
- C语言中内存分配问题:
- 数据抓取的艺术(三):抓取Google数据之心得
- Linux入门基础教程之Linux系统简介