perl 문자열 배열, 따옴표 가 있 는 배열 요 소 를 어떻게 출력 합 니까?

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
"; /home/a/j/nomad2:./1 "abc","bcd"

좋은 웹페이지 즐겨찾기