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

[無邊框]

1228

[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] 命令列傳入參數 argv Perl 的外部傳參，是$ARGV[0]、$ARGV[1]、$ARGV[2].....

自行撰寫syslog server建立資訊安全控管中心#2 -- 架構和作法利用PERL將syslog收攏到資料庫的程式，架構和作法

[PERL] 位元運算 Bitwise operation PERL的位元運算整理

PERL一次讀取檔案所有內容的方法($/) perl可以使用slurp mode一次讀完檔案所有內容的方法及一些範例

Freebsd11上安裝PERL模組 freebsd11+ perl module 在freebsd上安裝module還算簡單

隨機好文

使用Google尋找你的手機這近發現google竟然可以用來找android的手機，而且不需要經過什麼設定或安裝軟體。

為什麼要買長達二十年的保單？為什麼要買長達二十年的保單？找一個可以說服我買二十年保單的理由。

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

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

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

到最底端