我正在尝试获取字符串中可以由不同数量的空格分隔的每个单词。
my $ff = "Disk DSM Policy Paths Serials";
if($ff =~ m/(\w+)/) {
print $1;
print $2;
print $3;
}
我认为它会像 \w 一样简单,但它只得到第一个单词?难道我做错了什么?
你需要匹配g
lobally。
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'
# )