国产探花免费观看_亚洲丰满少妇自慰呻吟_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>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 沁源县| 郁南县| 财经| 惠安县| 金沙县| 双桥区| 鄯善县| 满洲里市| 夏河县| 泸水县| 平和县| 昭通市| 犍为县| 中超| 昌江| 纳雍县| 义乌市| 鹿泉市| 铜梁县| 武胜县| 梅州市| 耒阳市| 松潘县| 塔城市| 六安市| 托克逊县| 郓城县| 崇左市| 红河县| 图片| 遵义县| 祁阳县| 沂南县| 三台县| 微山县| 神农架林区| 托克托县| 沾化县| 惠安县| 海阳市| 双峰县|