常用的 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] 13- 變數的視界 變數的使用範圍，什麼是my，什麼是our？
[PERL] 自寫 trim, ltrim, rtrim 函數 常用的 perl 函數中沒有trim, ltrim, rtrim這三個函數，那就自己來寫，非常容易
[PERL] Perl 不立即輸出的列印緩衝區問題 解決Perl 不立即輸出而是最後一次輸出的列印緩衝區問題
[PERL] 24-呼叫系統程式及評估 Perl 如何呼叫系統程式並取回結果？
[PERL] 簡易檢查網頁記錄檔ip來源統計 利用PERL來檢查網頁記錄檔ip來源統計的簡易程式
[PERL] 04-基本比對 perl的正規表達示基本比對
[Win7] 燒錄 iso 檔 在Windows7 中內建燒錄程式，可以直接把檔案拉到光碟機裡，再執行燒錄。
APACHE的記錄檔格式 LogFormat 語法 在APACHE中有定義一些記錄的語法模版 在 /etc/httpd/conf/httpd.conf 中： LogForm
[PHP] 檢查IP是否在某個網段內 mtachcidr 要檢查IP是否在某個網段內，要寫幾行？10行？5行？ 不用，只要2行。以下是我寫的 code /** * matchCI
[PHP]解決ksort新增的SORT_NATURAL|SORT_FLAG_CASE方法 php>=5.4中ksort函數多了SORT_NATURAL 和 SORT_FLAG_CASE 旗標，對舊版的PHP中要怎麼辦？
[Mysql] 資料型態int, float, double, text, char, varchar, blob大小 Mysql中資料型態int, float, text, char, varchar, blob大小
