perl的 - 分裂串入2-字符组

Question

可能重复：
How can I split a string into chunks of two characters each in Perl?

我想通过2个字符的块分割的字符串到一个数组分组它：

$input = "DEADBEEF"; 
    @output = split(/(..)/,$input); 

这种方法产生的每一个其他元素为空。

$VAR1 = ''; 
    $VAR2 = 'DE'; 
    $VAR3 = ''; 
    $VAR4 = 'AD'; 
    $VAR5 = ''; 
    $VAR6 = 'BE'; 
    $VAR7 = ''; 
    $VAR8 = 'EF'; 

如何获得连续的阵列？

$VAR1 = 'DE'; 
    $VAR2 = 'AD'; 
    $VAR3 = 'BE'; 
    $VAR4 = 'EF'; 

（...比得到的第一个结果并去除所有其他行等...）

Answer 1

您可以轻松地过滤掉空条目具有：

@output = grep { /.+/ } @output ; 

编辑： 可以得到同样的事情更容易：

$input = "DEADBEEF"; 
my @output = ($input =~ m/.{2}/g); 

编辑2另一个版本：

$input = "DEADBEEF"; 
my @output = unpack("(A2)*", $input); 

问候

Answer 2

试试这个：

$input = "DEADBEEF"; 
@output =(); 

while ($input =~ /(.{2})/g) { 
    push @output, $1; 
}