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

[無邊框]

1231

[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] 常態分配亂數產生函數一般而言我們使用程式內建的 rand 函數取得的亂數是平均分配的，但如果需要常態分配的亂數產生器該怎麼做？

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

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

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

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

[PERL]] find 和 perl 的結合--大量檔案中文字的取代利用PERL作大量的文件取代

隨機好文

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

為什麼要重造輪子？什麼輪子？造什麼輪子？我為什麼要重造輪子？

一個邏輯的錯誤刪了全部檔案的經驗今天本來想做一件很簡單的事，但卻足足浪費我多一倍的時間，再加上刪掉我全部的檔案，原因只是因為我自己的邏輯錯誤。

精讚的版面變化 ▓此文僅作為舊文的記錄▓ 這篇文章為了紀念改版完成而撰寫。原本的部落格是民國97年的作品，那時還是用舊有的技術來寫，很

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

到最底端