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

[無邊框]

1276

[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] 18-套件及模組套件和模組入門

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

[PERL] 09-迴圈 perl的迴圈

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

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

自行撰寫syslog server建立資訊安全控管中心#1 -- 前言及syslog介紹利用PERL將syslog收攏到資料庫的程式

隨機好文

[HP DL380G7] 生效啟動第3，4片網卡/開啟或關閉內建的網卡 HP DL380G7 預設第3，4片網卡裝完系統後找不到，難道是壞了？要怎麼辦？

SELinux 常用指令和檔案在Redhat系列中，Centos5以後加入了selinux，他並沒有這麼可怕，不必每次看到Selinux ，就想把他

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

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

兩次使用InnoDB的慘痛經驗 Mysql 的Innodb引擎雖然好用，但是我得說說我兩次的慘痛經驗，這讓我考慮以後可能不會再使用innodb了

到最底端