求助perl语言处理数组重新排列

dj412731181

文本test.txt格式为x行y列，假设内容为：
00 00 00 00
00 00 00 55
00 00 00 aa
00 00 00 cc
11 11 11 00
11 11 11 55
11 11 11 aa
11 11 11 cc

。。。。。。
想重新排列为x/4行，4*y列，例如下面的格式：
00 00 00 00 11 11 11 00
00 00 00 55 11 11 11 55
00 00 00 aa 11 11 11 aa
00 00 00 cc 11 11 11 cc
小白请教大神perl语言代码，最好有说明，万分感谢，谢谢！！！！！！！

A1985

#! /usr/bin/env perl

use 5.010;
use strict;
use warnings;
use autodie;

my %line_hash = (
                 0 => [],
                 1 => [],
                 2 => [],
                 3 => [],
                );

open my $fr, "<", shift;
open my $fw, ">", shift;

my $linenum = 0;
while(<$fr>) {
  chomp;
  push @{$line_hash{$linenum%4}}, " ".$_;
  if($linenum == 7) {
    say $fw @{$line_hash{$_}} for 0..3;
    undef @{$line_hash{$_}} for 0..3;
    $linenum = 0;
  }
  else {
    $linenum++;
  }
}

close $fr;
close $fw;


%change.pl infile outfile

dj412731181

A1985 发表于 2020-8-20 11:09
#! /usr/bin/env perl

use 5.010;

非常感谢，能不能简单备注下，每行的意思，shift是我的原始文本名吗？我运行不起来，麻烦了，谢谢