☰

複数のファイルから1行を別の行に置き換える

tag-icon • tag-icon shell-script text-processing awk
複数のファイルから1行を別の行に置き換える

1つのファイルの1行の内容を複数のファイルの別の行（同じ場所番号3）に置き換える必要があります。問題は次のとおりです。

1を入力してください 

file.list <- list("a","b","c","d")
file.list <- list("d","e","f","g")
file.list <- list("h","i","l","m")

2.ファイル入力 

library(data.table)
library(dplyr)
file.list <- list("z","g","h","s","i")

3.ファイル入力 

library(data.table)
library(dplyr)
file.list <- list("s","p","q","r","m")

4.ファイル入力 

library(data.table)
library(dplyr)
file.list <- list("x","k","s","e")

Input2.fileの出力 

library(data.table)
library(dplyr)
file.list <- list("a","b","c","d")

Input3.fileの出力 

library(data.table)
library(dplyr)
file.list <- list("d","e","f","g")

Input4.fileの出力 

library(data.table)
library(dplyr)
file.list <- list("h","i","l","m")

私は以下を試してみます：

filename='Input1'
for i in *.file; do #here i loop over the list of files
    while read p $filename; do #here i loop over the lines of Input1 file
        awk '{ if (NR == 3) print "$p"; else print $0}' $i > $i.test; ##here i substitute the line 1 in the files with the line that are in Input1 file
    done;
done

何のメッセージも表示せずにスクリプトが停止するため、何か間違ったことをしているのです。私は何が間違っていましたか？どんなアイデアがありますか？

ベストアンサー1

$ gawk -i inplace '
    NR == FNR {repl[FNR] = $0; next} 
    FNR == 1  {filenum++} 
    FNR == 3  {$0 = repl[filenum]} 
    {print}
' Input1 Input{2,3,4}.file

$ cat Input2.file
library(data.table)
library(dplyr)
file.list <- list("a","b","c","d")

$ cat Input3.file
library(data.table)
library(dplyr)
file.list <- list("d","e","f","g")

$ cat Input4.file
library(data.table)
library(dplyr)
file.list <- list("h","i","l","m")

コードを確認してください。

  1. 各* .fileの3行をInput1の各行に置き換えます。各 *.file の 3 行目で、Input1 の最後の行が表示されます。
  2. $p一重引用符で囲まれているため、awkスクリプトでは拡張できません。

この試み：

exec 3<Input1   # set up file descriptor 3 to read from Input1 file
for f in *.file; do
    read -r -u 3 replacement   # read a line from fd 3  
    awk -v rep="$replacement" '{if (NR == 3) print rep; else print $0}' "$f" > "$f.test"
done
exec 3<&-       # close fd 3

おすすめ記事