perl - 将字符串拆分为 2 个字符组 [重复]答案

【问题标题】：perl - split string into 2-character groups [duplicate]perl - 将字符串拆分为 2 个字符组 [重复]
【发布时间】：2011-08-28 21:24:35
【问题描述】：

可能重复：
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';

（...除了获取第一个结果并删除每隔一行...）

【问题讨论】：

【解决方案1】：

您可以使用以下方法轻松过滤掉空条目：

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

编辑：您可以更轻松地获得相同的东西：

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

编辑 2 另一个版本：

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

问候

【讨论】：

【解决方案2】：

试试这个：

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

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

【讨论】：