常用的 perl 函數中沒有trim, ltrim, rtrim這三個函數，那就自己來寫，非常容易
sub rtrim {
my $str=shift;
$str =~ s/\s+$//g;
return $str;
}
sub ltrim {
my $str=shift;
$str =~ s/^\s+//g;
return $str;
}
sub trim {
my $str=shift;
$str = &rtrim( $str);
$str = <rim( $str);
return $str;
}
使用方法：
$str= " This is a spacing string ";
$str = &trim($str); // "This is a spacing string"
原文2009-11-23 10:04:58
[PERL] 用substr切割及置換字串 perl用substr來切割及置換字串
[PERL] 取得字串長度 使用length來取得字串長度
[PERL] 常態分配亂數產生函數 一般而言我們使用程式內建的 rand 函數取得的亂數是平均分配的，但如果需要常態分配的亂數產生器該怎麼做？
[PERL] 使用CPAN安裝模組 在Linux 上，CPAN 可以用來安裝或管理 perl 的模組，此文教你怎麼做。
[PERL] 中文字字串拆解，把中文字串逐字拆開 中文字字串拆解是門學問
Perl 的特殊變數：$` $' $#陣列 $1 $2 .. $10 \1 \2 .. \10 介紹Perl 的 $` $' $#array $1..$10 \1..\10這些變數
HP SAS硬碟leds燈號說明 HP SAS硬碟leds燈號(hp g7/g6系統適用)說明
[HP DL380G7] 生效啟動第3，4片網卡/開啟或關閉內建的網卡 HP DL380G7 預設第3，4片網卡裝完系統後找不到，難道是壞了？要怎麼辦？
[Freebsd] 定時測試 ADSL 是否斷線並重連 中華電信 ADSL 雖有固定 ip，可是他卻會不定時「斷線」, 使用以下的 方法可以定時測試是否斷線，以及重新撥接。
NETCRAFT發現你的網站及作業系統 NETCRAFT可以發現你的網站及作業系統
詭異的創業思維 創業的思維中，有多少銀彈，有多少技術，有多少人脈，有多少時間等等，每個都要考慮進去，以熱忱建立的關係脆弱的像蘇打餅乾一樣..
