常用的 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 正規表達式會用到的符號 PERL在比對時常常會用到符號整理
自行撰寫syslog server建立資訊安全控管中心#4 -- 過濾條件設定 利用PERL將syslog收攏到資料庫的程式，過濾條件設定
PERL的真值和假值(布林值) 整理Perl中的判斷真假的結果
自行撰寫syslog server建立資訊安全控管中心#3 -- 程式下載和安裝 利用PERL將syslog收攏到資料庫的程式，程式下載和安裝
[PERL] 命令列傳入參數 argv Perl 的外部傳參，是$ARGV[0]、$ARGV[1]、$ARGV[2].....
[PERL] 前置if和後置if (if修飾子)的差別 perl的if可以拿來作為後置修飾子使用，此外還有一個unless像是if的相反，分析他們的差異
[Freebsd] 使用 ADSL 撥接上網 Freebsd上要使用 ADSL 撥接上網，該如何設定？
[JAVA] JWS, JWT, JWE, JOSE是什麼？ [JAVA] JWS, JWT, JWE, JOSE是什麼？非常的複雜，儘量來搞清楚..
[AS3] 我做的唯一一個Flash As3遊戲UFO INVADSION [AS3] 我做的唯一一個Flash As3遊戲，是第一個也是最後一個，後來就沒再寫as3，不過as3還滿好玩的。
詭異的創業思維 創業的思維中，有多少銀彈，有多少技術，有多少人脈，有多少時間等等，每個都要考慮進去，以熱忱建立的關係脆弱的像蘇打餅乾一樣..
[PHP]解決ksort新增的SORT_NATURAL|SORT_FLAG_CASE方法 php>=5.4中ksort函數多了SORT_NATURAL 和 SORT_FLAG_CASE 旗標，對舊版的PHP中要怎麼辦？
