トークン置換ファイルからの値を使用して作成し、複数のファイル、1つの置換のための1それぞれが

Question

私は2つのファイルを持っています複数のファイル：

file_key1：

some useful or useless text 
key1 
some more useful or useless text 

file_key2：

some useful or useless text 
key2 
some more useful or useless text 

file_key3：

some useful or useless text 
key3 
some more useful or useless text 

それはsedのかawkのために来るとき、私は極度のnoobです。私は上記のperlスクリプトまたはbashスクリプトを使用して行うことができます。 sedまたはawkを使ってそれを行う方法はありますか？

編集：私は上記のタスクを行うために使用していますperlスクリプトを要求したとして、awkでは

$newFileCount= 1; 

open IFH,$filename || die "cannot open the file"; 

sub CreateNewFiles{ 

     my ($cid) = @_; 
     open TIFH, $templateFile; # this is the template file file2 from the above problem description 
     open OFH,">$templateFileTemp"; 
     while(<TIFH>) { 
       s/::tok::/$cid/g; 
       print OFH $_; 
     } 
     close TIFH; 
     close OFH; 
     move($templateFileTemp,$newFilePrefix.$newFileCount.".ext"); # using a library File::Copy for move operation 

} 
while(<IFH>) { 
     chomp($_); 
     $newFileCount= $newFileCount + 1; 
     CreateNewFiles($_); 

} 

Answer 1

：

$ awk ' 
NR==FNR {     # for the data file 
    b=b (NR==1?"":ORS) $0 # buffer the records from the data file 
    next     # next record 
} 
{ 
    close(file)   # close previous file 
    file="file_" $1  # name current file 
    t=b     # t is for tmp, b for buffer, baby 
    sub(/::tok::/,$1,t) # replace token with the key 
    print t > file   # dump the t to file 
}' file2 file1    # mind the order 

Answer 2

これを試してみてください -

$head f? 
==> f1 <== 
key1 
key2 
key3 

==> f2 <== 
some useful or useless text 
::tok:: 
some more useful or useless text 

---

$cat script.sh 
#!/bin/bash 
file1=$1 
file2=$2 
while IFS= read line 
do 
awk -v line="$line" '{gsub(/::tok::/,line); print > "fil_"line }' $file2 
done < $file1 

を

---

$./script.sh f1 f2 
$head fil_key? 
==> fil_key1 <== 
some useful or useless text 
key1 
some more useful or useless text 

==> fil_key2 <== 
some useful or useless text 
key2 
some more useful or useless text 

==> fil_key3 <== 
some useful or useless text 
key3 
some more useful or useless text