0

我正在尝试获取字符串中可以由不同数量的空格分隔的每个单词。

my $ff = "Disk  DSM     Policy  Paths   Serials";

if($ff =~ m/(\w+)/) {
    print $1;
    print $2;
    print $3;
}

我认为它会像 \w 一样简单,但它只得到第一个单词?难道我做错了什么?

4

1 回答 1

5

你需要匹配globally

my $ff = "Disk  DSM     Policy  Paths   Serials";

my (@words_match) = $ff =~ /(\w+)/g;
# (
#     'Disk',
#     'DSM',
#     'Policy',
#     'Paths',
#     'Serials'
# )

更好的解决方案是拆分

my @words_split = split ' ', $ff;
# (
#     'Disk',
#     'DSM',
#     'Policy',
#     'Paths',
#     'Serials'
# )
于 2012-07-24T17:35:28.947 回答