Perl連線Oracle資料庫的一些操作指令碼【轉】

ewelamb發表於2013-01-15
Oracle資料庫指令碼

一、 perl連線Oracle資料庫

[plain] view plaincopy
<embed>
  1. [oracle@oracle11gR2 perl_script]$ more connect.pl   
  2. #!/usr/bin/perl  
  3. #perl script used to connect to Oracle  
  4. use strict;  
  5. use DBI;  
  6.   
  7. my $tnsname="ora11gR2";  
  8. my $username="scott";  
  9. my $password="tiger";  
  10.   
  11. my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password) or die "Cannot conenct db: $DBI::errstr\n";  
  12. print "I have connected to the Oracle database!\n";  
  13.   
  14. $dbh->disconnect or warn "DB disconnect failed: $DBI::errstr\n";  
  15. print "Disconnected from Oracle databae!\n";  
  16.   
  17. [oracle@oracle11gR2 perl_script]$ ./connect.pl   
  18. I have connected to the Oracle database!  
  19. Disconnected from Oracle databae!  

二、向資料庫插入資料
[plain] view plaincopy
<embed>
  1. [oracle@oracle11gR2 perl_script]$ more insert.pl   
  2. #!/usr/bin/perl  
  3. # this code is used to insert data to Oracle Database  
  4.   
  5. use strict;  
  6. use DBI;  
  7.   
  8. my $id = 2;  
  9. my $name = "denver";  
  10.   
  11. my $dbh = DBI->connect("dbi:Oracle:ora11gR2", "test","test") or die " Cannot connect db: $DBI::errstr\n";  
  12.   
  13. my $sql = qq{INSERT INTO m VALUES(?,?)};  
  14. my $sth = $dbh->prepare($sql);  
  15. $sth->execute($id, $name);  
  16.   
  17. print "I have inserted the record!\n";  
  18.   
  19. $dbh->disconnect or warn "DB disconnect failed: $DBI::errstr\n";  
  20.   
  21. [oracle@oracle11gR2 perl_script]$ ./insert.pl   
  22. I have inserted the record!  
  23. [oracle@oracle11gR2 perl_script]$   

三、刪除資料


[plain] view plaincopy
<embed>
  1. [oracle@oracle11gR2 perl_script]$ more delete.pl   
  2. #!/usr/bin/perl  
  3. # Delete Data From Oracle Database  
  4.   
  5. use strict;  
  6. use DBI;  
  7.   
  8. my $id=2;  
  9.   
  10. my $dbh = DBI->connect("dbi:Oracle:ora11gR2", "test", "test") or die "Cannot connect db: $DBI::errstr\n";  
  11.   
  12. my $sql = qq{DELETE FROM m WHERE id=$id};  
  13. my $sth = $dbh->prepare($sql);  
  14. $sth->execute();  
  15. print "I have deleted the record!\n";  
  16.   
  17. $dbh->disconnect or warn "DB disconnect failed:$DBI::errstr\n";  
  18.   
  19. [oracle@oracle11gR2 perl_script]$ ./delete.pl   
  20. I have deleted the record!  

四、查詢
[plain] view plaincopy
<embed>
  1. [oracle@oracle11gR2 perl_script]$ more select.pl   
  2. #!/usr/bin/perl  
  3. # Here is an example code piece to select data from Oracle  
  4.   
  5. use strict;  
  6. use DBI;  
  7.   
  8. my $host = "localhost";  
  9. my $sid = "denver";  
  10.   
  11. my $dbh = DBI->connect("dbi:Oracle:ora11gR2", "test", "test") or die "Cannot connect db:$DBI::errstr\n";  
  12. print "I have connected to the Oracle 11g R2 database!\n";  
  13.   
  14. my $sql = qq{SELECT id, name FROM m};  
  15. my $sth = $dbh->prepare($sql);  
  16. $sth->execute();  
  17.   
  18. my ($pid, $pname); #declare columns  
  19. $sth->bind_columns(undef, \$pid, \$pname);  
  20. print "The results are:\n\n";  
  21. while ( $sth->fetch() ) { #fetch rows from DataBase  
  22.         print "ID:$pid, --- NAME:$pname\n";  
  23. }  
  24. $sth->finish();  
  25.   
  26. $dbh->disconnect or warn "DB disconnect failed: $DBI::errstr\n";  
  27. [oracle@oracle11gR2 perl_script]$ ./select.pl   
  28. I have connected to the Oracle 11g R2 database!  
  29. The results are:  
  30.   
  31. ID:0, --- NAME:**e  
  32. ID:1, --- NAME:**e  
  33. [oracle@oracle11gR2 perl_script]$   

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/7191998/viewspace-752675/，如需轉載，請註明出處，否則將追究法律責任。

相關文章