代码之家 › 专栏 › 技术社区 › rlbond

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

string arrays perl

rlbond · 技术社区 · 15 年前

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

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

什么东西应该是绳子 "A" "B" "C" '(每个元素都用双引号括起来)。

然而,如果 @myArray 是空的 $text 应该也是。我想用 join() ,如

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

我认为这是可行的。然而,有没有更优雅的方式来做到这一点?

4 回复 | 直到 14 年前

Chas. Owens 15 年前

使用 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.

brian d foy JRFerguson 14 年前

Chas。有正确的答案,但有时我用 $" 变量,保存要在数组元素之间放置的字符串以进行插值:

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

Chas. Owens 15 年前

我不确定是否使用“加入”。您想要带引号的元素的单个标量字符串,还是只需要带引号的元素的数组?如果是后者,那么我怀疑下面的方法可以做到。

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

当然,这回避了元素是否最初被引用的测试。例如,如果希望引用数组元素以便使用dbi插入数据库,则更合适的方法可能是:

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

我希望这有帮助

-2

Paul Tomblin 15 年前

它可能不完全符合您的要求,但我是Data::Dumper的忠实粉丝。

推荐文章

Dima Malko · 如何在指定符号前添加符号?

2 年前

shekharsabale · 从列表元素捕获子字符串

2 年前

Kamran Ali · 类中的Construtor Drink Drink不能应用于给定类型

2 年前

Manny · 如何比较Perl中的字符串?

2 年前

FÄÅ ÛÅ · 字典、列表和字符串

2 年前

displayName is undefined · 如何将字符串转换为非字符串?

2 年前

AntonioGrissini · 如何在python中将字符串“翻译”为整数?

2 年前

Manan Girdhar · 拆分字符串并仅在java中使用第二部分

2 年前

AnxiousLuna · Python使用len()获取数组索引数

2 年前

antonoyaro8 · 数据帧中每列上的Grepl

2 年前