这个map怎么用

月波无漾

1. $ perl -e '@num=qw(A12 A13 A14 A15);@val=map {$_=~s/A//} @num;print @val;'

复制代码

我想用map把@num里的字符串中A去掉,生成一个(12,13,14,15)的列表，怎么这个结果是1111啊

ps:问题幼稚了点>_<

兰花仙子

原帖由 月波无漾 于 2006-12-27 22:19 发表

1. $ perl -e '@num=qw(A12 A13 A14 A15);@val=map {$_=~s/A//} @num;print @val;'

复制代码

我想用map把@num里的字符串中A去掉,生成一个(12,13,14,15)的列表，怎么这个结果是1111啊

ps:问题幼稚了点>_ ...

1. perl -e '@num=qw(A12 A13 A14 A15);@val=map {s/A//;$_} @num;print @val;'

复制代码

兰花仙子

另外,偶给点建议,map不要试图修改原始列表的内容.最好这样做:

1. perl -e '@num=qw(A12 A13 A14 A15);@val=map {($x=$_)=~s/A//;$x} @num;print @val'

复制代码

月波无漾

谢谢.不过还想问下，为什么我开始用的得到的是1111呢?

xiaoshengcaicai

map的用法楼主没有理解好,以为跟grep一样

@new_array = map {.....;  return sth} @array; 作用是把sth push到数组new_array

楼主写的
@val=map {$_=~s/A//} @num;
$_=~s/A// 这一行代码的返回值是真值1

当然把1 push到@val里面

flw

原帖由 兰花仙子 于 2006-12-27 23:02 发表
另外,偶给点建议,map不要试图修改原始列表的内容.最好这样做:

1. perl -e '@num=qw(A12 A13 A14 A15);@val=map {($x=$_)=~s/A//;$x} @num;print @val'

复制代码

1. perl -e '@num=qw(A12 A13 A14 A15);@val=@num;map {s/A//} @val;print @val;'

复制代码

月波无漾

谢谢楼上各位,受教了.

lll0905

受教了

Perl_Er

returns the list value composed of the results of each such evaluation.

ccc77

returns the list value composed of the results of each such evaluation.
Perl_Er 发表于 2010-02-23 11:02

[root@204-74-217-83 prac]# perl -e '@lines=qw(a 1 2); @words=map { split ' ' } @lines; print @lines; print "\n";  print @words; print "\n";'
Missing right curly or square bracket at -e line 1, at end of line
syntax error at -e line 1, at EOF
Execution of -e aborted due to compilation errors.

我看了一下你这个例子。
为啥我这句话报错呢？