通过perl 5读取文本文件中的数据[重复]

Question

我想阅读这个格式如下的文本文件：

0XC@21XAA          c 0000_001 MARRT     AC@21XAA         NERP_111 YYRRT     
                     NBBB_250 MARRT                                          

我想在每一行中恢复每个数据，并用一个“#”分隔，并将 null 放在数据为空的地方。 然后放到另一个文件中。 你有什么想法

Answer 1

这是一个例子：

use feature qw(say);
use strict;
use warnings;

my $fn = 'file.txt';
open ( my $fh, '<', $fn ) or die "Could not open file '$fn': $!";
my $M = 110;
while( my $line = <$fh> ) {
    chomp $line;
    my $N = length $line;
    if ( $N < $M ) {
        my $pad = " " x ( $M - $N );
        $line .= $pad;
    }
    my @fields = unpack "A18xA1xA8xA9xA16xA8xA10xA1xA16xA8xA*", $line;
    @fields = map { length ? $_ : "NULL" } @fields;
    say join "#", @fields;
}    
close $fh;

输出：

0AC@21XAA#A#NAAA_001#MARRT#AC@21XAA#NERP_111#MARRT#NULL#NULL#NULL#NULL
NULL#NULL#NBBB_250#MARRT#NULL#NULL#NULL#A#AC@21XAA#NREP_001#MARRT
0AC@31XAA#A#NCCC_001#MARRT#AC@31XAA#NERP_111#MARRT#NULL#NULL#NULL#NULL
NULL#NULL#NEEE_250#MARRT#NULL#NULL#NULL#A#AC@31XAA#NREP_001#MARRT
0ACACAJAA#A#NFFF_001#MARRT#ACACAJAA#NERP_111#MARRT#NULL#NULL#NULL#NULL
NULL#NULL#NLLL_250#MARRT#NULL#NULL#NULL#A#ACACAJAA#NREP_001#MARRT
NULL#NULL#NULL#NULL#NULL#NULL#NULL#A#ACAC8JAA#NREP_001#MARRT
NULL#NULL#NULL#NULL#NULL#NULL#NULL#A#ACW40JAA#NREP_001#MARRT