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; 
}