输出一个数组，以逗号隔开

masylichu

怎么用最短的代码实现 输出一个数组，元素是以逗号形式隔开。

看薄荷天空

#!perl -w
@array=("a","b","c");
foreach $tmp(@array){
        print "$tmp";
        print ",";
}

flw

@f=1..10;$"=”,";print"@f\n";

longbow0

1. 
   
2. print join(',', @array);
   

复制代码

masylichu

回复 4# longbow0


    就是这个

ttcn_cu

print join',',@array;
括号见一对拆一对

2gua

最短的代码？好玩是吧？

BangBull

1. perl -e '@str=1..10;print "$f\n" if $f = join "," , @str'

复制代码

longbow0

BangBull 发表于 2011-03-07 14:11

1. 
   
2. perl -e '@str=1..10;print join("," , @str), "\n"'
   

复制代码

BangBull

回复 9# longbow0


    末尾多了个逗点