脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - perl - perl数据库添加、删除、更新、查询操作例子

perl数据库添加、删除、更新、查询操作例子

2020-06-19 10:38perl教程网 perl

这篇文章主要介绍了perl数据库添加、删除、更新、查询操作例子,本文直接给出操作代码,需要的朋友可以参考下

注意:连接时候使用SID指定的database,所以没有在连接中指定database.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my $db_name="geneva_admin";
my $db_passwd="geneva_admin";
 
my $dbh=DBI->connect("dbi:Oracle:","$db_name","$db_passwd")
 or die "Can't connect to oracle database:$DBI::errstr\n";
 
my $sth=$dbh->prepare("select a,b
   from a_tmp
   where a=2")
 or die "Can't prepare SQl prepare:$DBI::errstr\n";
$sth->execute or die "Can't execute:$DBI::errstr\n";
while (my @row = $sth->fetchrow_array()){
 my ($a,$b) = @row;
 print "1..\$a=$a,\$b=$b\n";
}
$sth->finish();
my $row=3;
my $sql="select a,b
 from a_tmp
 where a = ?";
$sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n";
$sth->execute($row) or die "Can't execute:$DBI::errstr\n";
while (my @row = $sth->fetchrow_array()){
 my ($a,$b) = @row;
 print "2..\$a=$a,\$b=$b\n";
}
$sth->finish();
my $row_a=3;
my $row_c=0;
$sql="select a,b
 from a_tmp
 where a = ?
 and  c = ?";
$sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n";
$sth->execute($row_a,$row_c) or die "Can't execute:$DBI::errstr\n";
while (my @row = $sth->fetchrow_array()){
 my ($a,$b) = @row;
 print "3..\$a=$a,\$b=$b\n";
}
$sth->finish();
for $row(1,2,3){
$sql="select a,b
 from a_tmp
 where a = ?";
$sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n";
$sth->execute($row) or die "Can't execute:$DBI::errstr\n";
while (my @row = $sth->fetchrow_array()){
 my ($a,$b) = @row;
 print "4..\$a=$a,\$b=$b\n";
}
}
$sth->finish();
#for $row(1,2,3){
#$sql="insert into a_tmp
#   values (?,?,?)";
#$sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n";
#$sth->execute($row,$row+1,$row+2) or die "Can't execute:$DBI::errstr\n";
#}
##$dbh->commit;
#$sth->finish();
 
#$sql="insert into a_tmp
#   values (100,30,2)";
#$sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n";
#$sth->execute or die "Can't execute:$DBI::errstr\n";
##$dbh->commit;
#$sth->finish();
for $row(1,2,3){
$sql="update a_tmp
   set b = ?
    , c = ?
   where a = ?";
$sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n";
$sth->execute($row+100,$row+50,$row) or die "Can't execute:$DBI::errstr\n";
}
#$dbh->commit;
$sth->finish();
 
for $row(1,2,3){
$sql="delete from a_tmp
   where c=2";
$sth=$dbh->prepare($sql) or die "Can't prepare SQl prepare:$DBI::errstr\n";
$sth->execute or die "Can't execute:$DBI::errstr\n";
}
#$dbh->commit;
$sth->finish();
 
$dbh->do("insert into a_tmp values (1,1,1)") or die "$DBI::errstr\n";
$dbh->do("delete from a_tmp where c=51")   or die "$DBI::errstr\n";
#$dbh->commit;
$sth->finish();
$dbh->disconnect;

延伸 · 阅读

精彩推荐
  • perlperl命令行参数内建数组@ARGV浅析

    perl命令行参数内建数组@ARGV浅析

    这篇文章主要介绍了perl命令行参数内建数组@ARGV浅析,本文重点在于讲解@ARGV的用法,并通过实例来说明,需要的朋友可以参考下 ...

    perl教程网6162020-06-18
  • perlPerl List::Util模块使用实例

    Perl List::Util模块使用实例

    这篇文章主要介绍了Perl List::Util模块使用实例,本文给出扫描符合条件的某个列表并取出第一个符合条件的、求1到1000之间的和 、求一组数字的最大值与最小...

    脚本之家4712020-06-22
  • perlPerl从文件中读取字符串的两种实现方法

    Perl从文件中读取字符串的两种实现方法

    有时候我们需要从文件中读取字符串,这里简单介绍下, 需要的朋友可以参考下 ...

    脚本之家6252020-06-08
  • perlperl常见问题集合之二

    perl常见问题集合之二

    哪些平台上有 Perl?要到哪里去找? Perl的标准发行版(由 perl 发展小组负责维护)仅以原始码形式发行。您可在 http: //www.perl.com/CPAN/src/latest.tar.gz处取得。这个档...

    脚本之家2102020-05-29
  • perlperl use vars pragma使用技巧

    perl use vars pragma使用技巧

    perl 中的vars是perl中的一个pragma(预编译指示符),专门用来预定义全局变量,这些预定义后的全局变量在qw()列表中,在整个引用perl文件中皆可使用,即便使...

    perl教程网6812020-06-16
  • perlperl pop push shift unshift实例介绍

    perl pop push shift unshift实例介绍

    perl的pop跟push操作数组的最右边,shift跟unshift操作数组的最左边 ...

    脚本之家4612020-06-10
  • perlPerl的经典用法分享

    Perl的经典用法分享

    Perl的经典用法分享,学习perl的朋友可以参考下 ...

    脚本之家6562020-06-06
  • perlPerl使用nginx FastCGI环境做WEB开发实例

    Perl使用nginx FastCGI环境做WEB开发实例

    这篇文章主要介绍了Perl使用nginx FastCGI环境做WEB开发实例,实现了路由系统和模板系统,需要的朋友可以参考下...

    Perl教程网2412020-06-18