您的位置:首页 > 其它

perl 字符串数组,如何输出带引号的数组元素

2011-11-05 17:36 543 查看
from: http://stackoverflow.com/questions/739214/how-do-i-output-each-perl-array-element-surrounded-in-quotes
例如:

/home/a/j/nomad2:cat 1
#!/usr/bin/perl

my @strArray = ("abc", "bcd");
my $text = do { local {1}quot; = q<",">; qq<"@strArray"> };

print "$text\n";
/home/a/j/nomad2:./1
"abc","bcd"
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐