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

[無邊框]

1470

[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] 用substr切割及置換字串 perl用substr來切割及置換字串

[PERL] 10- 雜湊 Perl 的hash 指標陣列

PERL 正規表達式會用到的符號 PERL在比對時常常會用到符號整理

[PERL] 09-迴圈 perl的迴圈

PERL的真值和假值(布林值) 整理Perl中的判斷真假的結果

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

隨機好文

HP SAS硬碟leds燈號說明 HP SAS硬碟leds燈號(hp g7/g6系統適用)說明

[jQuery] textarea 的取值和給值 HTML 的 TEXTAREA 標籤若要用 jquery 取值，不能使用 .text() 或 .html() ，使用 .

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，可是預設的沒有裝，我們得自己裝才能用

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

到最底端