懷疑組數據

Question

我需要以下問題的幫助。我有一個包含以下數據的文件。

21997|||70049,,20170428154818,20170527235959||| 
21997|||70070,,20170428154739,20170527235959||| 

21998|||70049,,20170428154818,20170527235959||| 
21998|||70070,,20170428154739,20170527235959||| 
21998|||70071,,20170428154739,20170527235959||| 

我需要統一文件如下。

21997|||70049,,20170502172844,20170531235959; 70070,,20170502172844,20170531235959||| 

21998|||70049,,20170502172844,20170531235959; 70070,,20170502172844,20170531235959; 70071,,20170502172844||| 

有人可以幫我嗎？

Answer 1

my $unified_output; 
my %out; 

open(FILE, "./raw-file.txt") or die $!; 
    my @file = <FILE>; 
close FILE; 

for (@file) {  
    next if $_ =~ /$^/;   
    my @line = split(/\|\|\|/, $_) if $_;  
    $out{"$line[0]"} .= qq~$line[1]; ~ if $_ and $_ =~ /^$line[0]/;  
} 

for (keys %out) { 
    $out{$_} =~ s!\; $!!; 
    $unified_output .= qq~$_|||$out{$_}|||\n~ if $_ and $out{$_}; 
}