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

[無邊框]

1355

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

[PERL] 08-陣列 #2 --操作更多perl陣列的操作，如拆開、黏合、取出、加入等等

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

自行撰寫syslog server建立資訊安全控管中心#3 -- 程式下載和安裝利用PERL將syslog收攏到資料庫的程式，程式下載和安裝

[PERL] 中文字字串拆解，把中文字串逐字拆開中文字字串拆解是門學問

Apache Worker MPM =worker 調整參數 Apache目前一共有三種穩定的MPM(Multi-Processing Module，多進程處理模式簡稱: MPM)

隨機好文

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

UTF8中文字/全形一覽快速查詢urf-8的中文字，共計13246中文字(5401常用字+7652罕用字+日文或編號)，292全形符號，27半形符號。

[AS3] FLASH 引入外部as檔 FLASH AS3中，若要引用另外撰寫的 class(*.as) 檔案，該如何處理？

分享還是炫耀？是分享還是炫耀，取決於對方的的心態和你的心態...

銷售的困難點--庫存銷售時，商人加上自己的利潤和風險，作為商品的售價，進貨面臨的問題會是什麼？

到最底端