修改日期：2023年01月09日
1. 系統環境
系統版本：fedora6 x86_64
db2版本：db2 v9.5.0.3
perl版本： v5.8.8（系統自帶）
perl-dbi版本：perl-dbi-1.52-1.fc6（系統自帶）
dbd-db2版本：dbd-db2-1.76
2. 安裝dbd-db2
匯入下面環境變數：
根據自己的系統安裝的路徑，匯入相應路徑。
export ld_library_path=/opt/ibm/db2/v9.5/lib64
export db2_home=/opt/ibm/db2/v9.5
安裝步驟：
perl makefile.pl
make
make test
make install
模組安裝位置：
cat /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/dbd/db2/.packlist
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/bundle/dbd/db2.pm
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/dbd/db2.pm
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/dbd/db2.pod
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/dbd/db2/constants.pm
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/dbd/db2/constants/constants.bs
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/dbd/db2/constants/constants.so
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/dbd/db2/constants/autosplit.ix
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/dbd/db2/db2.bs
/usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi/auto/dbd/db2/db2.so
/usr/share/man/man3/bundle::dbd::db2.3pm
/usr/share/man/man3/dbd::db2.3pm
3. 測試指令碼.
1). perl連線遠端db2伺服器：
cat perl_connect_to_remote_db2.pl
#!/usr/bin/perl -w
$userid="db2inst1";
$password="passwd";
$db="sample";
$port=50000;
#$hostname="localhost";
$hostname="***.***.***.***";
$protocol="tcpip";
$conn_string = "dbi:db2:database=$db; hostname=$hostname; port=$port; protocol=$protocol; uid=$userid; pwd=$password;";
use dbi;
$dbh = dbi->connect ("$conn_string",) or
die "can't connect to database $hostname:$db: $dbi::errstr";
my $stmt = "select * from employee";
my $sth = $dbh->prepare($stmt);
$sth->execute();
my $col1;
$sth->bind_col(1,\$col1);
while ($sth->fetch)
$sth->finish();
$dbh->disconnect();
2). perl連線本地db2伺服器：
cat perl_connect_to_local_db2.pl
#!/usr/bin/perl -w
$userid="db2inst1";
$password="passwd";
$db="sample";
use dbi;
$dbh = dbi->connect ("dbi:db2:$db", "$userid", "$password") or
die "can't connect to $db database: $dbi::errstr";
my $stmt = "select * from employee";
my $sth = $dbh->prepare($stmt);
$sth->execute();
my $col1;
$sth->bind_col(1,\$col1);
while ($sth->fetch)
$sth->finish();
$dbh->disconnect()
;
perl指令碼練習
題目 12 34 56 78 24 65 87 90 76 11 67 87 100 89 78 99 求出文字中數字的最大 小值 我看很多的朋友都用shell的awk實現了，但本人對awk不是很了解，試著用perl簡單的寫了一下，也能實現 code usr bin perl w use stric...
指令碼入門（2） perl指令碼
一 注釋 pod 這裡的是注釋 cut 二 chomp 去掉換行符 n 去掉 chomp text 讀入，但不含換行符 三 line 一次讀一行，效能好。會帶有換行符，通常都會加上chomp 操作符去掉換行符，四 鑽石尖括號 使用兩個尖括號表示讀取來自檔案的輸入，可以從命令列中傳遞檔案到 當不注釋掉...
Perl檔案測試
運算子 含義 r file 如果 file 可讀，則為真 w file 如果 file 可寫，則為真 x file 如果 file 可執行，則為真 o file 如果 file 的屬主是有效的uid，則為真 e file 如果 file 存在，則為真 z file 如果 file 大小為0，則為真 ...