[PERL] 自寫 trim, ltrim, rtrim 函數 @新精讚

[無邊框]

1348

[PERL] 自寫 trim, ltrim, rtrim 函數

“

常用的 perl 函數中沒有trim, ltrim, rtrim這三個函數，那就自己來寫，非常容易

„

分享此文連結 //n.sfs.tw/10670

分享連結 [PERL] 自寫 trim, ltrim, rtrim 函數@新精讚

(文章歡迎轉載，務必尊重版權註明連結來源)

2019-10-18 07:39:28 最後編修

2017-01-24 01:52:23 By 張○○

常用的 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 = &ltrim( $str);
    return $str;
}

使用方法：

$str= " This is a spacing string ";
$str = &trim($str); // "This is a spacing string"

原文2009-11-23 10:04:58

END

你可能感興趣的文章

[PERL] Regex 字元集(群組) 幾個Perl在regular express會用到的特殊符號notation：字元集

[PERL] 24-呼叫系統程式及評估 Perl 如何呼叫系統程式並取回結果？

[PERL] 23-多執行緒而多執行緒的程式，可在一次執行程式時間，同時進行多線程的計算，在效率上可獲得即大的提升。

[PERL] JSON物件的使用 PERL要處理JSON，可以使用perl提供的模組，一些技巧整理。

[PERL] 01-撰寫第一隻PERL程式及目錄 PERL的系列教學文，適合有其他程式經驗但沒學過PERL的人

PERL一次讀取檔案所有內容的方法($/) perl可以使用slurp mode一次讀完檔案所有內容的方法及一些範例

隨機好文

沒有非誰做不可的事，也沒有不可被取代的人沒有非誰做不可的事，也沒有不可被取代的人

UTF-8的網頁但IE8一片空白 UTF8編碼的網頁在Firefox 正常顯示、但IE8 就是空白，IE8編碼設定是「自動偵測」可是自動偵測到的是 big5...

網頁的標頭(head)搜尋引擎和FB最佳化網頁的標頭(head)搜尋引擎和facebook最佳化

關閉瀏覽器表單的自動完成autocomplete 什麼是自動完成？就是當我們在網頁的輸入文字欄位中打入文字時，瀏覽器會把曾輸入過歷史記錄中找出來讓我們選擇。

[MYSQL] 設定字串欄位的預設值新增表格的時候，字串欄位給予預設空值；數字欄位給預設數值；日期欄位給空值。

到最底端