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

[無邊框]

1600

[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] 03-條件式判斷 perl的條件式判斷

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

[PERL] 15-進階比對 #2--使用更多修飾子 perl的正規表達式進階比對

Perl 計算經過的時間 Perl 計算程式執行經過的時間

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

[PERL] 取得字串長度使用length來取得字串長度

隨機好文

[Freebsd] 定時測試 ADSL 是否斷線並重連中華電信 ADSL 雖有固定 ip，可是他卻會不定時「斷線」, 使用以下的方法可以定時測試是否斷線，以及重新撥接。

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

外匯課程經驗有天遇到某個朋友的正妹朋友，說她有個很棒的外匯投資課程，要我們去聽，只收場地費200大洋。她又說續效最差一個月也有1%，誰還在苦哈哈上班？

[CodeIgniter 3] 資料庫的使用方法整理2/2 CI3 承襲 CI2，有很多的builder class可以用，依各人的使用習慣，有人喜歡一堆sql字串，有人喜歡用helper

Sound of Music @比利時中央車站比利時中央車站的快閃表演：「真善美」

到最底端