[英]How do I extract single characters or enclosed groupings from a string in Perl?
我想拆分字符串:“Hello [You] All”
到以下数组:
H,e,l,l,o,[You],A,l,l
我尝试用拆分做到这一点:
my $str = "Hello[You]All";
my @list = split(/(\[.*?\]|.)/, $str);
foreach (@list) {
print "->$_\n";
}
既然我尝试了分裂不应该做的事情,它给了我以下数组:
,H,,e,,l,,l,,o,,[You],,A,,l,,l,
我需要采取的下一步是删除空格。
虽然它不是最好的解决方案,但它是我找到的唯一解决方案,没有任何太混乱。 我在这里发帖询问是否有人知道更好的方法来解决这个问题?
my $str = "Hello[You]All";
my @list = $str =~ /(\[.*?\]|.)/g;
foreach (@list) {
print "->$_\n";
}
也就是说:你不需要拆分你正在使用的模式(导致那些空元素,因为它们是使用你的模式作为分隔符拆分出来的实际文本); 你只需要为你的模式提取所有匹配项。 哪个在数组上下文中进行全局( /g
)模式匹配呢。
你可以grep非空元素的结果;
my @list = grep /./, split(/(\[.*?\]|.)/, $str);
或者,
my @list = $str =~ /\[.*?\]|./g;
虽然我也认为混乱的答案在这里是正确的,但为了完整性,这里是使用split
和grep
实现你想要的一种方法:
#!/usr/bin/perl
use strict;
use warnings;
my $x = "Hello[You]All";
my @x = grep { defined } split qr{(\[.+\])|}, $x;
use Data::Dumper;
print Dumper \@x;
使用此模式, split
括号内的字符(您没有提及"a[]b"
是否为有效输入)或空字符串和grep
过滤器defined
ness而不是真值。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.