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

[無邊框]

1413

[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 的列舉寫法(map list) 使用列舉的寫法來設定陣列，非常的強大

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

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

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

[PERL] 命令列傳入參數 argv Perl 的外部傳參，是$ARGV[0]、$ARGV[1]、$ARGV[2].....

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

隨機好文

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

[CodeIgniter 3] 資料庫的使用方法整理1/2 --Select的使用 [CodeIgniter 3] 資料庫的使用方法整理：Select的使用

[NetBeans] 使用git複製別人的專案 NetBeans使用git複製別人的專案及版本控制

[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中要怎麼辦？

到最底端