Wie gebe ich jedes Perl-Array-Element in Anführungszeichen um?

Question

Ich möchte die Elemente eines Arrays in einem bestimmten Format in Perl ausgeben.

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

Etwas sollte die Zeichenfolge '"A" "B" "C"' sein (jedes Element in doppelten Anführungszeichen). Wenn @myArray leer ist, dann sollte $text auch sein. ich daran gedacht, mit join(), wie

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

Was ich denke, funktionieren würde. Gibt es jedoch einen eleganteren Weg dies zu tun?

Answer 1

Verwendung 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"; 

, auch den Code sauberer zu machen, können Sie den qq// Operator (verhält sich genau wie "", aber Sie können wählen Sie Ihre Trennzeichen) zu vermeiden, die Flucht der " s.

Answer 2

Es könnte nicht genau das tun, was Sie fragen, aber ich bin ein großer Fan von Data :: Dumper für diese Art von Sache.

Answer 3

Chas. hat die richtige Antwort, aber manchmal benutze ich die $" Variable, die die Zeichenfolge setzen zwischen Arrayelementen für die Interpolation gilt:

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

Answer 4

Ich bin nicht sicher über die Verwendung einer „Join“. Möchten Sie eine einzelne skalare Zeichenfolge mit in Zitierten Elementen oder möchten Sie nur ein Array mit in Zitierten Elementen? Wenn dieser dann vermute ich folgendes tun würde es

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

Natürlich ist diese ausweicht den Test, ob die Elemente ursprünglich zitiert wurden. Wenn Sie die Array-Elemente zitieren zum Einfügen in eine Datenbank mit DBI zum Beispiel wollen, dann könnte der geeignetere Weg:

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

Ich hoffe, die