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

[無邊框]

1329

[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] Perl 不立即輸出的列印緩衝區問題解決Perl 不立即輸出而是最後一次輸出的列印緩衝區問題

[PERL] 簡易檢查網頁記錄檔ip來源統計利用PERL來檢查網頁記錄檔ip來源統計的簡易程式

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

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

[PERL] 使用CPAN安裝模組在Linux 上，CPAN 可以用來安裝或管理 perl 的模組，此文教你怎麼做。

[PERL] 前置if和後置if (if修飾子)的差別 perl的if可以拿來作為後置修飾子使用，此外還有一個unless像是if的相反，分析他們的差異

隨機好文

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

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

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

維修海棉拖把頭這類型的海棉拖把很好用，可是這近發現海棉頭越來越不耐用，也許是錯覺，以往都能用個三四個月，現在二個月就差不多掉下來。這

關閉瀏覽器表單的自動完成autocomplete 什麼是自動完成？就是當我們在網頁的輸入文字欄位中打入文字時，瀏覽器會把曾輸入過歷史記錄中找出來讓我們選擇。

到最底端