如何輸出引號中包含的每個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”。

Answer 2

查斯。 有正確的答案，但有時我使用$"變量，它保存字符串放在數組元素之間進行插值：

my $text = do { local $" = q<" ">; qq<"@array"> };

Answer 3

我不確定使用“加入”。 你想要一個帶引號元素的標量字符串，還是只想要一個帶引號元素的數組？ 如果是后者，那么我懷疑以下會這樣做

my @a = qw|a b c|;
@a = map {qq|"$_"|} @a;    

當然，這可以避免測試元素是否最初被引用。 如果您希望引用數組元素以便使用DBI插入數據庫，那么更合適的方法可能是：

@a = map{$dbh->quote($_)} @a;

我希望這有幫助

Answer 4

它可能不會完全符合您的要求，但我是Data :: Dumper的忠實粉絲。