ActivePerl使用cpan安裝DBD::DB2模組

今天發現ActiveState公司所提供的ActivePerl 5.12.3版有個不錯的改進
(可能之前的版本就改進了，只是今天才注意到，不過這並不重要)。

以往在Windows環境底下使用Perl總有個令人覺得是次等公民的限制，
那就是對於部分需要C編譯程式才能完成安裝的模組，
如果沒有已經準備好的PPM(參考)，那就無法安裝，也就是不能用。
如果找得到也有可能不是最新的版本，使用上總是有點不暢快，
於是習慣在Unix環境下使用Perl。

ActivePerl 5.12.3提供了gcc編譯器(應該是v3.4.5)
鍵入cpan後歡迎畫面會顯示這個資訊，
安裝模組的方式一如往常，
以安裝DBD::DB2為例：

install DBD::DB2

就可以了

只要Windows環境下DB2的環境是準備好的
整個安裝過程完全沒有問題
之後也寫了個簡單的測試程式確認連結、查詢資料庫是正常的

我覺得這個改進很好，讓人覺得呼吸順暢沒有束縛，開放原始碼真好。

好聽的 In my life

好聽的《In my life》，演唱跟口白版本一樣動人。

歌詞淺顯感人

In my life

There are places I remember all my life
Though some have changed
Some forever, not for better
Some have gone, and some remain
All these places had their moments
With lovers and friends I still can recall
Some are dead and some are living
In my life I've loved them all

But of all these friends and lovers
There is no one compares with you
And these memories lose their meaning
When I think of love as something new
Though I know I'll never lose affection
For people and things that went before
I know I'll often stop and think about them
In my life I love you more

Though I know I'll never lose affection
For people and things that went before
I know I'll often stop and think about them
In my life I love you more

In my life I love you more    

這一生中

有許多地方對我來說永生難忘
雖然有些地方早就人事已非
有些地方永遠一成不變
有些已經片瓦不留，也有些還保持原樣
它們全都曾參與過重要時刻
和戀人、和朋友，這些人在我的記憶裡依然那麼清晰
他們有些已經撒手人寰，有些還活在世上
這一生中我深愛這一切

但在全部的戀人和朋友之中
沒有一個人能與妳相比
這些回憶通通失去了它們的意義
當愛情對我又產生了新鮮感
雖然我很清楚我永遠不會失去這份情感
對於那些已成追憶的人、事、物
我知道我會常常停下腳步懷念它們
但這一生中，我愛妳最多

雖然我很清楚我永遠不會失去這份情感
對於那些已成追憶的人、事、物
我知道我會常常停下腳步懷念起它們
但這一生中，我愛妳最多

但這一生中，我愛妳最多……

Ubuntu上更新OpenOffice到3.3版的方法

安裝步驟

1. 移除前版本 :  sudo apt-get remove openoffice*.*
2. 下載 : 網址 OOo_3.3.0_Linux_x86-64_install-deb_zh-TW.tar.gz
3. 解壓縮
4. 安裝 : sudo dpkg -iR ./OOO330_m20_native_packed-1_zh-TW.9567

也許過程會因為作業環境不同而有點異常的情況發生，但大致上這麼做是沒有問題的。

另外注意到，由於SUN已被甲骨文公司併購，所以開放軟體社群另外建立了一個分支LibreOffice 免費文書處理軟體中文版。但操作介面類似與檔案格式仍然可以相通讀取。

我個人來說，自從家中"借用"的MS-Office 2003被告知說是非正版而移除安裝以後，就改用OpenOffice，連帶PC的作業系統改成Ubuntu超過一年了，個人使用上覺得穩定方便，也因為沒有安裝防毒軟體，所以PC運作效能也一直維持應有的水準。

習作-使用Open2來與外部程式交談

# demo 使用Open來與外部程式交談
# unix指令wc : print newline, word, and byte counts for each file
# 在perl程式內執行wc, 提供計算資料以及取回計算結果

use strict;

use IPC::Open2;
use IO::Handle;

# init file handle
my $read_fh  = IO::Handle->new();
my $write_fh = IO::Handle->new();

# 使用open2建立可與之交談的子程序
my $childpid = open2($read_fh, $write_fh, 'wc');

# 提供資料
$write_fh->print("abc def\n24 187\n");
# 關閉(結束)input handle, 否則wc會一直等待
$write_fh->close();

# 取回結果(可能多行, 使用陣列)
my @wc = <$read_fh>;

# 關閉(結束)input handle, 否則wc會一直等待
$read_fh->close();

print "$_\n" for (@wc);
# 印出 2 4 15

# 等待確認子程序已結束
waitpid($childpid, 0);

exit 0;

在Perl程式裡面執行外部程式的方法很多，如何選擇使用，主要還是取決於需求以及外部程式的特性。

有一類如系統指令，並不提供API，通常的用法就是在shell環境下，以指令的方式或者shell script的方式使用，用眼睛閱讀解讀，執行的輸出結果，或者再把它的輸出經由pipe，當成另外一個指令的輸入或者儲存寫到檔案裡面。


如果需要能夠動態決定輸入內容，以及靈活使用(比如判斷、轉換、組成、轉送...)它的輸出，Perl提供open2這個基本函式，經由線上文件可以瞭解它的使用方法，以及需要注意(比如I/O buffer的觀念)的地方。

外部程式並非永遠正確執行(比如可能找不到，或者傳入的內容不符合他的預期...)，這點就需要檢查$?變數內容。

為什麼是open2()，因為它只處理了STDOUT & STDIN這兩個File Handle，如果還需要STDERR的內容，那就要使用open3()，照文件說明所說，open2()其實是open3的wrapper，也就是它最終是去呼叫open3()，使用這個函式需要注意的是File Handle的Input/Output方向。

然而，現在寫程式，比較不建議直接使用open2這些基本的函式呼叫了，因為你需要處理一些不必要的細節，學會使用CPAN上的模組，比如IO::CaptureOutput或者IPC::Cmd
可以簡化一些處理細節，程式的bug也會減少很多。

設定備忘：讓User只能FTP而不能logon的方法

參考來源

為了安全起見(FTP一點都不安全)，如果User不需要登入系統，就不要給他這樣的權限。
要修改的有兩個設定檔案，分別是 /etc/passwd & /etc/shells

/etc/passwd 存有使用者帳號資料，每行有7個欄位。(參見)

1. 將最右邊的 /bin/bash 改成一個不存在的 shell ， 比如 /usr/nologin，存檔。
2. 再將這個shell種類加到 /etc/shells 最後面一行就可以了。

IBM主機中文碼的轉碼

不同系統間的資料傳遞，如果只是單純的英數字資料，就不會碰到麻煩，
但是，如果資料含有中文字，就要特別處理轉碼的問題，
原本處理來自IBM主機資料時，一直 Convert::IBM390這個模組，
也由於之前資料內很幸運的都沒有中文，
所以一直也沒注意到這個無法轉換中文的限制，直到.....今天。

Convert::IBM390只能夠轉換 IBM-1047 <=> ISO8859-1
而 IBM主機上的Traditional Chinese EBCDIC編碼是IBM-937(cp937)
目前Perl在CPAN上面的Encode模組找不到支援cp937
另外唐鳳所寫的模組Encode::IBM可以支援。(但我沒試過)

Unix-like作業系統上，也有一個iconv的指令，可已進行檔案轉碼的作業。
簡單介紹可以參考這裡

所以經由Perl可以間接使用iconv來轉碼，再將結果取回放回變數內，舉例如下。

###############################
# CP937 => Big5 轉碼
# 使用inconv指令
#
sub CP937_BIG5 {

    my $eb = shift;
    return '' unless $eb;

    # 在家目錄/tmp下
    my $big5file = $ENV{HOME} . '/tmp/big5file';
    open Convert, " | iconv -s -f IBM-937 -t big5 > $big5file "  or die;

    print Convert $eb;
    close Convert;

    open B5, '<', $big5file or die;

    my $big5 = <B5>;
    close B5;

    return $big5;

}

如果不想使用上面的方法，也可以改用Text::Iconv，比較簡潔。

###############################
# CP937 => Big5 轉碼
# 使用Text::Iconv來介接inconv指令
#
use Text::Iconv;
sub CP937_BIG5 {

    my $eb = shift;

    if ($eb) {
        return Text::Iconv->new("IBM-937" => "big5")->convert($eb);    
    }
    else {
        return '';
    }
    
}

轉碼是個不得已沒有營養的作業，
但為了現有營運中不同系統間的資料轉換，
它又是個必須存在的基本工具。

Perl提供了良好多樣性的方法來達到我們的目的，是個值得學習而又實用的程式語言。