有点无语的Perl语法

glimp

回复 30# flw

1. my @array = qw/a b c d e/;
   
2. my @x = map {  "\u$_",$_ } @array;
   
3. print @x;

复制代码

编译出错，Not enough arguments for map; Syntax error

1. my @array = qw/a b c d e/;
   
2. my @x = map {  +"\u$_",$_ } @array;
   
3. print @x;

复制代码

输出 AaBbCcDdEe

1. my @array = qw/a b c d e/;
   
2. my @x = map {  ("\u$_",$_) } @array;
   
3. print "@x";

复制代码

输出 AaBbCcDdEe

zhlong8

回复  flw 编译出错，Not enough arguments for map; Syntax error输出 AaBbCcDdEe输出 AaBbCcDdEe
glimp 发表于 2011-04-23 03:07

    不加 + 会以为是 hash，因为解析的时候还看不到 {} 后面是不是有 ,

心肝宝贝儿

很详细，楼主辛苦了。

brainwang198206

回复 1# 黑色阳光_cu