perl - perl - ファイルに一連の行を追加する必要がある

Question

pChainCtrl 
pChainName 
pDef 

pChainCtrl 
pArgs 

pChainCtrl
pChainCtrl 
name 
pChainTable

これらはいくつかの関数の引数です。関数テンプレートの"@param[in ]"の前に追加する必要があります

テンプレート

/**
********************************************************************************
*  @fn                                                            
*  @brief
*  @param[in ]                                                         
*  @return
********************************************************************************
*/

マイコード

use strict;
use warnings;


open(FILE3,"< functions2.txt")or die $!;
my @array1 = <FILE3>;

foreach my $arg (@array1){
    open(my $FILE4,"+< function_template.txt")or die $!;;
    seek( $FILE4, 197, 0);     // takes pointer infront of @param[in ]
    chomp $arg;
    print $FILE4 "$arg";
close($FILE4);
}
close(FILE3);

引数を 1 つずつ追加します。

引数の各セットを別の場所にコピーされるファイル テンプレートに追加し (そのためのコードがあります)、次の引数のセットに進む必要があります。

必要な出力

/**
********************************************************************************
*  @fn                                                            
*  @brief
*  @param[in ]   pChainCtrl 
                 pChainName 
                 pDef                                                        
*  @return
********************************************************************************
*/