perl - 需要根据用户指定的位置从变量而不是数组中获取单个字段值

Question

我需要从基于 numbers 的行中获取字段，其中字段由空格分隔。现在的问题是这些字段本身可能包含空格，但它们会在单引号中。

IE：

$var="1 'abc def' 234 '' '456' 77 'ghi jkl mno p ' 99 ' q ' 88 ' r'";

abc def当用户想要位置 1 的元素时，我如何获取？

Answer 1

检查Text::ParseWords核心模块，

use Text::ParseWords;
my $var = "1 'abc def' 234 '' '456' 77 'ghi jkl mno p ' 99 ' q ' 88 ' r'";
my @words = quotewords('\s+', 0, $var);

# use Data::Dumper; print Dumper \@words;
my $position = 1;
print $words[$position]; # 'abc def'

Answer 2

我的（未经测试的）方法是

use Data::Dumper;

my $var="1 'abc def' 234 '' '456' 77 'ghi jkl mno p ' 99 ' q ' 88 ' r'";

my @data = split("\s",$var);
my @result;

foreach my $substr (@data) {
    s/[\"|\']//g;
    push(@result,$_) unless $_ eq "";
}

print Dumper @data;

会返回这样的东西

@data = [
    "1",
    "abc def",
    "234",
    ...
];

现在您可以简单地访问每个对象

$data[index];