Perl-скрипт для обновления одной строки файла другой

Я бы сделал это так, чтобы открыть дескриптор входного файла и дескриптор выходного файла и пройти построчно через первый столбец проверки файла и, если все в порядке, просто вставить его в свой вывод, как есть.

Если это действительно нужно изменить, я бы сделал новую строку с необходимыми изменениями и тоже поместил бы ее в свой выходной файл.

Это простой подход, который, хотя и не самый лучший / элегантный / что угодно, быстро даст вам то, что вам нужно.

Заполните хэш-карту, где ключ - это Col2 (A, B, C и т. Д.), А значение - это остальные столбцы (Col3, Col4 и т. Д.). Сделайте Col2 ключом, только если Col1 и Col2 совпадают, как вы хотите.

Затем при записи файла, если Col1 и Col2 не совпадают, выполните поиск в хэше по первому символу Col1. Это даст вам значения Col3, Col4 ... для вставки.

Используйте процессор CSV!

По крайней мере, Text::CSV или родственники, такие как Text::CSV_XS (быстрее) или Text::CSV::Encoded (например, для UTF-8).

DBD::CSV предоставляет SQL.

Ниже приведен скелет базовой структуры программы, которая позволяет вам это делать. Если бы я знал, что вы хотите сделать, я был бы намного полезнее.

Я сделал самое простое возможное предположение и обработал ваши входные файлы, как если бы они были фиксированными столбцами с шириной = 7,6, *. Поскольку вы с тех пор сообщили мне, что они разделены табуляцией, я изменил код, который разбивает данные на поля.

use autodie;
use strict;
use warnings;
use English qw<$INPUT_LINE_NUMBER>;

my %data;
my $line_no;
open ( my $h, '<', 'good_file.dat' );

while ( <$h> ) {
    my ( $col1, $col2, $data ) = split( /\t+/, $_, 3 );
    # next unless index( $col1, 'A' ) == 0;
    $line_no = $INPUT_LINE_NUMBER;
    my $rec 
        = { col1 => $col1
          , col2 => $col2
          , data => $data
          , line => $line_no
          };
    push( @{ $data{"$col1-$col2"} }, $rec );
    $data{ $line_no } = $rec;
}
close $h;

open ( $h, '<', 'old_file.dat' );

while ( <$h> ) { 
    my ( $col1, $col2, $data ) = split( /\t+/, $_, 3 );
    ... 
}

Следующее - это всего лишь способ, которым вы можете распечатать свои значения обратно в файл.

open ( $h, '>', 'old_file.dat' );
foreach my $rec ( grep {; defined } @data{ 1..$line_no } ) { 
    printf $h "%s\t%s\t%s\n", @$rec{qw<col1 col2 data>};
}

Но вы действительно никому не оказали достаточно помощи, чтобы помочь вам.