perl - 如何输出用引号括起来的每个 Perl 数组元素？

Question

我想在 Perl 中以特定格式输出数组的元素。

@myArray = ("A", "B", "C");
$text = something;

应该是字符串 ' "A" "B" "C" '(每个元素用双引号括起来)。

但是，如果 @myArray为空，则 $text应该也是。
我想过用 join() ， 如

$text = "\"" . join("\" \"", @myArray) . "\"";
if ($text eq "\"\"")
{
    $text = "";
}

我认为这会起作用。但是，有没有更优雅的方法来做到这一点？

Answer 1

使用 map :

#!/usr/bin/perl

use strict;
use warnings;

my @a    = qw/ A B C /;
my @b;
my $text = join ' ', map { qq/"$_"/ } @a;
print "text for (@a) is [$text]\n";

$text = join ' ', map { qq/"$_"/ } @b;
print "text for (@b) is [$text]\n";

此外，为了使代码更简洁，您可以使用 qq// 运算符(行为与 "" 完全相同，但您可以选择分隔符)以避免转义 " s。