最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

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

 更新時(shí)間:2015年06月15日 10:10:35   投稿:junjie  
這篇文章主要介紹了Perl刪除前導(dǎo)和拖尾空白(刪除左右空格、空白字符),本文給出了多個(gè)方法實(shí)現(xiàn)解決這個(gè)需求,需要的朋友可以參考下

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

左側(cè)整理

ltrim或者lstrip從字符串左側(cè)刪除空白字符:

復(fù)制代碼 代碼如下:

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

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

右側(cè)整理

rtrim或者rstrip從字符串右側(cè)刪除空白字符:

復(fù)制代碼 代碼如下:

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

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

整理兩端

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

復(fù)制代碼 代碼如下:

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

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

封裝在函數(shù)里

如果你不想在代碼中看到這些結(jié)構(gòu),你可以在代碼里添加這些函數(shù):

復(fù)制代碼 代碼如下:

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 };

使用時(shí)像這樣:
復(fù)制代碼 代碼如下:

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

要是實(shí)在不想拷貝那些東西,你可以安裝一個(gè)模塊。

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

復(fù)制代碼 代碼如下:

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>


默認(rèn)它整理兩側(cè),你不需要提供參數(shù)。 我覺得,自己實(shí)現(xiàn)ltrim和rtrim會(huì)清晰些。

Text::Trim

另一個(gè)模塊Text::Trim提供了3個(gè)函數(shù),但是它極度采納了Perl風(fēng)格的寫法,可能到了有些危險(xiǎn)的地步。

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

復(fù)制代碼 代碼如下:

use Text::Trim qw(trim);

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


另一方面,如果你在空白上下文調(diào)用它,亦即不使用返回值,trim函數(shù)就會(huì)修改參數(shù),產(chǎn)生類似chomp的行為。
復(fù)制代碼 代碼如下:

use Text::Trim qw(trim);

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

相關(guān)文章

最新評(píng)論

沂源县| 保山市| 寿光市| 托克托县| 高淳县| 宜丰县| 邵阳市| 南雄市| 双流县| 乳山市| 黄浦区| 北辰区| 温宿县| 东方市| 依安县| 沙田区| 龙门县| 朝阳县| 独山县| 宿迁市| 吉木萨尔县| 秀山| 乐昌市| 兴城市| 敦煌市| 盐亭县| 邢台市| 湘阴县| 乐都县| 资源县| 阿克苏市| 平武县| 博客| 衡阳市| 榆林市| 虹口区| 遂平县| 沙田区| 容城县| 吉林省| 漳平市|