Comment générer chaque élément de tableau Perl entouré de guillemets?

Question

Je veux sortir les éléments d'un tableau dans un format spécifique en Perl.

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

Quelque chose doit être la chaîne « "A" "B" "C" » (chaque élément entre guillemets). Cependant, si @myArray est vide, alors $text devrait être aussi. Je pensais d'utiliser join(), comme

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

Ce que je pense fonctionnerait. Cependant, y a-t-il une manière plus élégante de faire ceci?

Answer 1

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

En outre, pour rendre le code plus propre, vous pouvez utiliser l'opérateur qq// (se comporte exactement comme "", mais vous pouvez choisir votre delimiter) pour éviter d'avoir échapper aux " s.

Answer 2

Il se peut que ce ne soit pas exactement ce que vous demandez, mais je suis un grand fan de Data :: Dumper pour ce genre de choses.

Answer 3

Chas. a la bonne réponse, mais parfois j'utilise la variable $", qui contient la chaîne à mettre entre les éléments du tableau pour l'interpolation:

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

Answer 4

Je ne suis pas sûr d'utiliser un « rejoindre ». Voulez-vous une seule chaîne scalaire avec des éléments entre guillemets ou voulez-vous simplement un tableau avec des éléments entre guillemets? Dans ce dernier cas alors je soupçonne que ce qui suit ferait

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

Bien sûr, cela évite le test si les éléments ont été cités à l'origine. Si vous voulez que les éléments du tableau cités pour l'insertion dans une base de données en utilisant DBI par exemple, la façon plus appropriée pourrait être:

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

J'espère que cette aide