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

[無邊框]

1688

[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] 08-陣列 #2 --操作更多perl陣列的操作，如拆開、黏合、取出、加入等等

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

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

[PERL] 21- 使用資料庫 Perl 連Mysql

[PERL] 05-運算子 #1 PERL的運算子介紹，總共有21種

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

隨機好文

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

[JAVA] JWS, JWT, JWE, JOSE是什麼？ [JAVA] JWS, JWT, JWE, JOSE是什麼？非常的複雜，儘量來搞清楚..

[Wildfly10] 發佈war檔 deploy war file onto wildfly10

在Centos7 下安裝 Wildfly10 wildfly以前叫JBoss，2014.11.20改名叫Wildfly，起始版本是Wildfly8，現在已經出到Wil

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

到最底端