Perl删除前导和拖尾空白（删除左右空格、空白字符）
其它一些编程语言中，有函数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>
相关文章
本文向大家简单介绍一下Perl split函数的用法，Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中2013-02-02
本文给大家分享的是使用perl生成随机密码的方法示例，而且可以通过参数来控制密码中包含的字符种类，非常的不错，有需要的小伙伴可以参考下2016-06-06
这篇文章主要介绍了Perl中的列表和数组学习笔记,本文讲解了列表、数组--列表的存贮、数组的存取、字符串中的方括号和变量替换、列表范围、数组的输出等内容,需要的朋友可以参考下2015-02-02
这个perl文件将执行的任务是， 按照指定的文件夹目录，自动将该文件夹下的所有文件上传到指定ftp站点的指定目录下2006-11-11
对所有输入文件，如果没有版权信息则加上版权信息，否则什么都不做，并对原文件以.bak结尾备份,需要的朋友可以参考下2017-08-08
这篇文章主要介绍了Perl中的文件读写学习笔记,本文讲解了打开、关闭文件、读文件、写文件、判断文件状态等内容,需要的朋友可以参考下2015-02-02
perl，读取所需文件的路径，然后打开相应的文件，并对文件中的DNA序列进行计数，substr函数对长字符串的片段化处理功能2013-03-03
本文重点讨论Perl时间处理函数的概念,Perl能在绝大多数操作系统运行,可以方便地向不同操作系统迁移,并且Perl借取了C、sed、awk、shellscripting以及很多其他程序语言的特性2017-09-09
今天小编就为大家分享一篇关于perl6垃圾收集的文章，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧2018-10-10
perl CPAN中有一个Tie-File 模块极大方便了对大文件的操作2013-02-02
最新评论