国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Perl > 正文

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

2020-10-31 14:51:09
字體:
來源:轉載
供稿:網友

其它一些編程語言中,有函數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>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 枣强县| 普兰县| 兰州市| 朝阳区| 舟山市| 五台县| 广州市| 抚州市| 清水河县| 辽宁省| 白山市| 仁怀市| 凤凰县| 大石桥市| 河北省| 兴国县| 连南| 东山县| 柘城县| 微山县| 高安市| 汉川市| 舟山市| 泾阳县| 常德市| 静乐县| 通州市| 盐津县| 乌拉特中旗| 五峰| 满城县| 都昌县| 绥芬河市| 秦安县| 白水县| 安龙县| 如皋市| 易门县| 延吉市| 来宾市| 中西区|