常用的 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] 常態分配亂數產生函數 一般而言我們使用程式內建的 rand 函數取得的亂數是平均分配的，但如果需要常態分配的亂數產生器該怎麼做？
[PERL] 檢查IP是否在某個網段內：matchcidr 檢查IP是否在某個網段內 matchcidr in perl
[PERL] 18-套件及模組 套件和模組入門
[PERL] 22-日期和時間 Perl 取得日期時間的方法整理，使用 localtime等多種函數
[PERL] 03-條件式判斷 perl的條件式判斷
自行撰寫syslog server建立資訊安全控管中心#2 -- 架構和作法 利用PERL將syslog收攏到資料庫的程式，架構和作法
[HP DL380G7] 生效啟動第3，4片網卡/開啟或關閉內建的網卡 HP DL380G7 預設第3，4片網卡裝完系統後找不到，難道是壞了？要怎麼辦？
PHP for sphinx 函式庫安裝 PECL/sphinx PHP>= 5.2.2 已經能原生支援 sphinx，可是預設的沒有裝，我們得自己裝才能用
看懂DSUB DVI HDMI USB等各式影音接頭 看懂DSUB DVI HDMI等各式影音接頭
[CodeIgniter3] 解決無法上傳特定檔案(.sb2)的問題 上傳時出現The filetype you are attempting to upload is not allowed，要怎麼解決？
世紀帝國征服者新版本--被遺忘的帝國 世紀帝國征服者新版本--被遺忘的帝國 世紀二代的征服者是精典遊戲中的精典，aofe更好玩...
