[精讚] [會員登入]
1175

[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] 18-套件及模組 套件和模組入門

[PERL] 17-參照 PERL的參照,就是指標

[PERL] 用substr切割及置換字串 perl用substr來切割及置換字串

[PERL] 04-基本比對 perl的正規表達示基本比對

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

[PERL] 16-字串取代和置換 Perl 字串比對及置換

隨機好文

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

UTF-8 BOM (Byte Order Mark) 的問題 在 Michael Kaplan 那看到 Every character has a story #4: U+feff

PHP for sphinx 函式庫安裝 PECL/sphinx PHP>= 5.2.2 已經能原生支援 sphinx,可是預設的沒有裝,我們得自己裝才能用

[Windows7] 移除IE10及移除IE11 Windows7 不得已的情況要移除IE11或IE10怎麼做?

[札記] 2016.7~12月札記 札記,只是札記