[精讚] [會員登入]
1316

[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] 07-陣列 #1 -- 基本 perl的陣列

Perl 的特殊變數:$` $' $#陣列 $1 $2 .. $10 \1 \2 .. \10 介紹Perl 的 $` $' $#array $1..$10 \1..\10這些變數

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

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

Perl的類別物件利器 bless 使用bless來替perl建立class物件。

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

隨機好文

[Win7] 燒錄 iso 檔 在Windows7 中內建燒錄程式,可以直接把檔案拉到光碟機裡,再執行燒錄。

正則表達式:Email名稱防止連續輸入點(.)及下底線(_) Email的名稱中要允許特殊符號,但又不允許連續出現的正則表達式

[MAC] 安裝APACHE+PHP OS Darwin OpenIDMac1deAir 15.6.0 Darwin Kernel Version 15.6.

[PHP]解決ksort新增的SORT_NATURAL|SORT_FLAG_CASE方法 php>=5.4中ksort函數多了SORT_NATURAL 和 SORT_FLAG_CASE 旗標,對舊版的PHP中要怎麼辦?

[AS3] 變數型態 基本類型宣告 as3 有下列幾種基本類型:string, int, number, object, boolean, n