专业背景：计算机科学 研究方向与兴趣: JavaEE-Web软件开发, 生物信息学, 数据挖掘与机器学习, 智能信息系统 目前工作: 基因组, 转录组, NGS高通量数据分析, 生物数据挖掘, 植物系统发育和比较进化基因组学
2011-03-11 15:54:03| 分类： perl&bioperl | 标签： |举报 |字号大中小 订阅
http://topic.csdn.net/t/20030812/10/2136072.html
使用规则表达式来匹配开头和结尾的空格，"^ +"," +$"
分两步走:
先去掉前面的: $a=~s/^ +//;
在去掉后面的: $a=~s/ +$//;
一步就可以：
s/(^\s+|\s+$)//g;
s/(^\s*|\s*$)//g;
实例:
$a = " abc ";
print $a;
print"\n";
$a=~s/^ +//;
$a=~s/ +$//;
print $a;
sub trim
{
ltrim($_[0]);
rtrim($_[0]);
}
sub ltrim
{
$_[0] =~ s/^\s+//;
}
sub rtrim
{
$_[0] =~ s/\s+$//;
}
评论