Perl的简单入门

最新推荐文章于 2021-11-02 15:10:08 发布

jlh_huahua

最新推荐文章于 2021-11-02 15:10:08 发布

阅读量96

点赞数

文章标签： perl oracle database module file

本文链接：https://blog.csdn.net/jlh_huahua/article/details/7272009

版权

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

[oracle@oracle11gR2 perl_script]$ ./connect.pl
install_driver(oracle) failed: Can't locate DBD/oracle.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at (eval 3) line 3.
Perhaps the DBD::oracle perl module hasn't been fully installed,
or perhaps the capitalisation of 'oracle' isn't right.
Available drivers: DBM, ExampleP, File, Gofer, Oracle, Proxy, Sponge.
at ./connect.pl line 9

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

4.练习：

[oracle@oracle11gR2 perl_script]$ more connect.pl 
#!/usr/bin/perl
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]$

注意：my $dbh=DBI->connect("dbi:Oracle:$tnsname", $username, $password)中的dbi:Oracle的大小写，如果写成dbi:oracle会报如下错误：

jlh_huahua

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
Perl的简单入门

4.练习：[oracle@oracle11gR2 perl_script]$ more connect.pl #!/usr/bin/perluse strict;use DBI;my $tnsname="ora11gR2";my $username="scott";my $password="tiger";my $dbh=DBI->connect("dbi:Oracle:
复制链接

扫一扫