婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > Perl刪除前導和拖尾空白(刪除左右空格、空白字符)

Perl刪除前導和拖尾空白(刪除左右空格、空白字符)

熱門標簽:熱門電銷機器人 智能機器人電銷神器 okcc外呼系統怎么調速度 河南虛擬外呼系統公司 電話機器人哪里有賣 惠州龍門400電話要怎么申請 外呼電信系統 萬利達百貨商場地圖標注 上海企業外呼系統

其它一些編程語言中,有函數ltrim和rtrim分別用于從字符串開頭和末尾刪除空格和制表符。 也有的提供了函數trim來刪除字符串兩端的空白字符。Perl里沒這些函數因為簡單的正則表達式替換就能實現這個目的(不過我確信CPAN有很多模塊實現了這些函數)。事實上這太簡單了以至于成了帕金森瑣碎定理里的一個顯著主題。

左側整理

ltrim或者lstrip從字符串左側刪除空白字符:

復制代碼 代碼如下:

$str =~ s/^\s+//;

從字符串開頭^開始匹配一個或者多個空白字符(\s+),并將之替換成空字符。

右側整理

rtrim或者rstrip從字符串右側刪除空白字符:

復制代碼 代碼如下:

$str =~ s/\s+$//;

匹配一個或者多個空白字符(\s+)直到字符串末尾($),并將之替換成空字符。

整理兩端

trim刪除字符串兩端的空白字符:

復制代碼 代碼如下:

$str =~ s/^\s+|\s+$//g

將上面兩個正則表達式用或記號|連起來,并在最后增加/g用以全局地執行替換操作(反復多次)。

封裝在函數里

如果你不想在代碼中看到這些結構,你可以在代碼里添加這些函數:

復制代碼 代碼如下:

sub ltrim { my $s = shift; $s =~ s/^\s+//;       return $s };
sub rtrim { my $s = shift; $s =~ s/\s+$//;       return $s };
sub  trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s };

使用時像這樣:
復制代碼 代碼如下:

my $z = " abc ";
printf "%s>\n", trim($z);   # abc>
printf "%s>\n", ltrim($z);  # abc >
printf "%s>\n", rtrim($z);  # abc>
String::Util

String::Util

要是實在不想拷貝那些東西,你可以安裝一個模塊。

例如String::Util提供了函數trim,你可以如下使用:

復制代碼 代碼如下:

use String::Util qw(trim);

my $z = " abc ";
printf "%s>\n", trim( $z );              # abc>
printf "%s>\n", trim( $z, right => 0 );  # abc >
printf "%s>\n", trim( $z, left  => 0 );   # abc>


默認它整理兩側,你不需要提供參數。 我覺得,自己實現ltrim和rtrim會清晰些。

Text::Trim

另一個模塊Text::Trim提供了3個函數,但是它極度采納了Perl風格的寫法,可能到了有些危險的地步。

如果你調用它并將返回值用在print語句或者賦給一個變量,它會返回整理過的字符串,并保持原始字符串不變。

復制代碼 代碼如下:

use Text::Trim qw(trim);

my $z = " abc ";
printf "%s>\n", trim($z);  # abc>
printf "%s>\n", $z;       # abc >


另一方面,如果你在空白上下文調用它,亦即不使用返回值,trim函數就會修改參數,產生類似chomp的行為。
復制代碼 代碼如下:

use Text::Trim qw(trim);

my $z = " abc ";
trim $z;
printf "%s>\n", $z;       # abc>

您可能感興趣的文章:
  • 用于過濾空白字符的幾種常見的js正則表達式pattern
  • 用MySQL函數清除字符串首尾空白字符的方法
  • ASP.NET通過自定義函數實現對字符串的大小寫切換功能
  • PHP實現刪除字符串中任何字符的函數
  • 10個.NET中刪除空白字符串的方法

標簽:淮安 秦皇島 周口 合肥 綏化 周口 百色 綿陽

巨人網絡通訊聲明:本文標題《Perl刪除前導和拖尾空白(刪除左右空格、空白字符)》,本文關鍵詞  Perl,刪除,前導,和,拖尾,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《Perl刪除前導和拖尾空白(刪除左右空格、空白字符)》相關的同類信息!
  • 本頁收集關于Perl刪除前導和拖尾空白(刪除左右空格、空白字符)的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 景泰县| 上思县| 班玛县| 巴南区| 贵阳市| 岳阳市| 渭源县| 惠东县| 甘泉县| 平利县| 武冈市| 黄石市| 高雄市| 陆丰市| 朝阳区| 通许县| 乐清市| 琼海市| 英山县| 大悟县| 绥芬河市| 通渭县| 卓资县| 太仆寺旗| 吉安县| 汤原县| 慈利县| 禹城市| 左云县| 哈密市| 专栏| 呼伦贝尔市| 牙克石市| 准格尔旗| 南丹县| 白朗县| 镇坪县| 临朐县| 伊金霍洛旗| 新乡市| 板桥市|