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

[無邊框]

1323

[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] 12- 副程式 Perl 的副程式就是所謂的函數

[PERL] 07-陣列 #1 -- 基本 perl的陣列

[PERL] 23-多執行緒而多執行緒的程式，可在一次執行程式時間，同時進行多線程的計算，在效率上可獲得即大的提升。

Perl 計算經過的時間 Perl 計算程式執行經過的時間

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

隨機好文

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

UTF-8 BOM (Byte Order Mark) 的問題在 Michael Kaplan 那看到 Every character has a story #4: U+feff

為什麼要重造輪子？什麼輪子？造什麼輪子？我為什麼要重造輪子？

Smarty安裝 smarty 是著名的樣版引擎，非常的好用，用多了突然發現拿掉smarty反而不會寫php了，以下是安裝過程..

詭異的創業思維創業的思維中，有多少銀彈，有多少技術，有多少人脈，有多少時間等等，每個都要考慮進去，以熱忱建立的關係脆弱的像蘇打餅乾一樣..

到最底端