如何去除一字符窜数组中每个元素的首尾空格?

sellie

写个foreach循环每个元素处理后生成一个新的数组的方法我会实现.
想提高一下, 有没有简便的方法,比如一句话就能搞定的. 而且不生成新的数组?
谢谢!

sellie

再具体化一点.
想写个subroutine 进行这样的处理.
调用时把数组的引用传给这个subroutine, subroutine执行完后, 该数组中的每个元素的首尾空格就没有了.
希望能用诸如grep map的方式操作数组.

shaohao_cu

my @new_str = map { chomp; $_ } @old_str;

xfoucs

sellie 发表于 2012-03-07 19:01
写个foreach循环每个元素处理后生成一个新的数组的方法我会实现.
想提高一下, 有没有简便的方法,比如一句话 ...

foreach 不用生产新数组

1. s/^\s+(.*?)\s+$/$1/ foreach @array;

复制代码

兰花仙子

sellie 发表于 2012-03-07 19:01
写个foreach循环每个元素处理后生成一个新的数组的方法我会实现.
想提高一下, 有没有简便的方法,比如一句话 ...

map就可以吧

C:\Perl>perl -e "@a=(' a ',' b ',' c ');@b=map{s/^\s+|\s+$//g;$_} @a; print @b"
abc

sjdy521

map正解

sellie

xfoucs 发表于 2012-03-07 20:37
foreach 不用生产新数组

这个给力,最切题的答案.

sellie

回复 5# 兰花仙子

产生了新的数组. 不过这样的写法更容易读懂.
谢谢.


   

sellie

自己继续学习总结如下.供大家参考.

****不产生新的数组*****
my @aaa = ( ' a', 'b ', ' c ', 'd');
print @aaa,"\n";

s/^\s*(.+?)\s*$/$1/ foreach @aaa;

print @aaa,"\n";

或可
for (@aaa) {  s/^\s*(.+?)\s*$/$1/ }

或可
map{ s/^\s+|\s+$//g } @aaa;





****产生新的数组*****
my @aaa = ( ' a', 'b ', ' c ', 'd');
print @aaa,"\n";

my @bbb=map{s/^\s+|\s+$//g;$_} @aaa;

print @bbb,"\n";


或可
my $tmp;
my @bbb=map{ ($tmp=$_) =~ s/^\s+|\s+$//g; $tmp } @aaa;

Perl_Er

1. my @array = ("a ", " b", " c ");
   
2. 
   
3. map { s/^\s*|\s*$//g } @array;
   
4. 
   
5. print Dumper \@array;
   

复制代码

回复 1# sellie

1. $VAR1 = [
   
2.           'a',
   
3.           'b',
   
4.           'c'
   
5.         ];
   

复制代码