perl - 将字符串拆分为 2 个字符组

Question

可能的重复：
如何拆分在 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;
}