问个基础问题_关于删除空格问题

新手没接触过per 问个基础问题，怎样去掉字段的空格

文件内容是这样的： aaa,bbb      ,ccccc   ,ddd
我通过一段perl来解析文件内容要求输出 aaa|bbb|ccccc|ddd
现在我的脚本是这样的：
$a       = (split(',',$inpline))[0];
$b= (split(',',$inpline))[1] ;
$c   = (split(',',$inpline))[2] ;
$d  = (split(',',$inpline))[3] ;

$/="";

$row = join('|',$a,chomp($b), chomp($c),chomp($d),.......省略


这样倒入数据库中字段全为0了，


$/="";
chomp
这种事上百度搜得方法，貌似不好使 ，请问各位大虾有什么好的方法没有？

作者: fumuju   发布时间: 2010-10-28

作者: wfnh   发布时间: 2010-10-28

作者: jason680   发布时间: 2010-10-28

本帖最后由 zhlong8 于 2010-10-28 15:27 编辑

  顶
chomp 最多也只去掉一个$/，此路不通啊

$s =~ s/^\s*(.*?)\s*$/$1/; 对 split 后的项处理也行，适用于项内部有空格的

作者: zhlong8   发布时间: 2010-10-28

脚本中加了段
$inpline =~ s/\s*,\s*/|/g;
搞定，多谢

作者: fumuju   发布时间: 2010-10-28

作者: flw   发布时间: 2010-10-28