Perlスクリプトを使用してインプレースで列を追加および削除してファイルを変更します。

Question

削除する列と追加する場所を知っているPerlスクリプトを作成しています。私はdeleteColumnという配列を持っていますが、これには数字の列が削除されています。同様に私はAddColumnという配列を持っていて、何かを挿入する必要のある場所に関する情報を含んでいます。

入力には、列がカンマで区切られた行があります(,)。これの例は次のようになります。

1,2,3,5,9,7,8,12

今配列deleteColumnの値は、私が delete要素9および12と配列AddColumn関数の値に持っていることを意味している[4,7]と言っている、[3を言っています5] これらのaddColumnは空の追加を示します。つまり、','です。だから、削除 と加えた後、最終的出力は次のようになります。

1,2,3,,5,,7,8.

私はGBの
ファイル（合計サイズ）の周りを読んで、それを操作する必要があるとして、どのように私はこのインラインを達成することができます。これはインラインでできますか？

私はファイルを1行ずつ読みます。

Answer 1

列を削除すると、追加する列のインデックスが変更されることがあります。したがって、インデックスを最初に正規化します。降順で数値順にソートし、追加する各インデックスを、削除するカラムの数だけ減らします。

#!/usr/bin/perl 
use warnings; 
use strict; 
use feature qw{ say }; 

my @delete = (4, 7); 
my @add = (3, 5); 

# Normalize the arrays. 
@delete = sort { $b <=> $a } @delete; 
@add = sort { $b <=> $a } @add; 
for my $i (@delete) { 
    $_ > $i && --$_ for @add; 
} 

while (my $line = <>) { 
    chomp $line; 
    my @columns = split /,/, $line; 
    splice @columns, $_, 1  for @delete; 
    splice @columns, $_, 0, q() for @add; 
    say join ',', @columns; 
}