使用 AWK 创建基于一个文件的文件夹和基于另一个文件的文件夹中的文件

Question

我有一个相当复杂的子任务： 基于一个文件创建文件夹/目录 (PF.csv) 并基于另一个文件创建文件 (FC.py) 在这些目录中。

要使用的两个输入文件

文件内容 PF.csv

#######Some description#######
,Rbig,Rsmall,Rmiddle,Lupper,Llower,
DP 0,4.590,0.424,3.5,20,20,,,,,
DP 1,2.949,0.192,1.831,8.508,17.3,,,,,
DP 2,3.103,0.812,1.662,11.456,7.666,,,,,
DP 3,2.418,0.058,1.876,6.295,9.032,,,,,

文件内容 FC.py

###############Some description#############
Lorem ipsum
App.ActiveDocument.Spreadsheet.set('B2', '=5.0mm')#set Rbig here
Lorem ipsum
App.ActiveDocument.Spreadsheet.set('F2', '=9.0mm')#set Llower here

预期输出： 对于 PF.csv 的每一行，将在其中创建一个目录和文件，使用第一列 DPx (x = 0,1,2,...) 命名。此外，文件的内容来自 FC.py，并使用 PF.csv 的其他列（如下所述，如何）中的值更改某些行。

文件内容 DP0/DP0.py

###############Some description############# 
Lorem ipsum 
App.ActiveDocument.Spreadsheet.set('B2', '=4.590mm')#set Rbig here
Lorem ipsum
App.ActiveDocument.Spreadsheet.set('F2', '=20mm')#set Llower here  

文件内容 DP1/DP1.py

###############Some description############# 
Lorem ipsum 
App.ActiveDocument.Spreadsheet.set('B2', '=2.949mm')#set Rbig here
Lorem ipsum
App.ActiveDocument.Spreadsheet.set('F2', '=17.3mm')#set Llower here  

文件内容 DP2/DP2.py

###############Some description############# 
Lorem ipsum 
App.ActiveDocument.Spreadsheet.set('B2', '=3.103mm')#set Rbig here
Lorem ipsum
App.ActiveDocument.Spreadsheet.set('F2', '=7.666mm')#set Llower here  

文件内容 DP3/DP3.py

###############Some description############# 
Lorem ipsum 
App.ActiveDocument.Spreadsheet.set('B2', '=2.412mm')#set Rbig here
Lorem ipsum
App.ActiveDocument.Spreadsheet.set('F2', '=9.032mm')#set Llower here  

我的代码

awk 'BEGIN {FS = ",";}
 {
  if ($1 ~ "DP")
    {Rbig = $2; Llower = $6;    #values are assigned from each line read from PF.csv
    gsub(" ",""); system("mkdir "$1); filename=$1"/"$1".txt";    #empty space is pruned from first column ('DP x', x=0,1,2,...) and folder with file is created with the name using system() and filename  
    {(getline < "FC.py");    #FC.py is read, processing further FC.py only, taking the folders and values assigned using the previous codes for file PF.csv only.
      {
        if ($0 ~ "#set Rbig here")     #if it finds a line with this, it assigns the value of Rbig, taken from PF.csv just before.
          {gsub("5.0mm",Rbig"mm"); print >> filename;}
        else if ($0 ~ "#set Llower here")    #simlarly assigns Llower like previous two line codes
          {gsub("9.0mm",Ll"mm"); print >> filename;}
        else
          {print >> filename;}
      }; close(filename)
    }
    }
  }
' PF.csv

我的代码输出（不需要） 文件夹已创建，但仅创建文件 DP2/DP2.py 与行 App.ActiveDocument.Spreadsheet.set('B2', '=3.103mm')#set Rbig here。

我确信这是可能的，但由于缺乏理解而没有成功。请在您的答案中解释问题出在哪里以及您是如何使用AWK 解决问题的。

PS：我只能接受仅使用 AWK 的答案，因为它是更大的一部分 工作流程，但如果可能，请随意添加其他解决方案 外壳脚本。此外，该脚本应使用 shell 脚本调用或直接在 Linux/Mac 的终端中键入。

Answer 1

EDIT2： 正如在聊天室中与 OP 讨论的那样，控制 M 字符似乎也出现在 OP 的 Input_file(s) 中，因此可以通过以下方式删除它们：

tr -d '\r' < Input_file > temp && mv temp Input_file

或者，如果你的盒子里有 dos2unix 实用程序，你也可以运行它来删除控制 M 字符，一旦它们被删除，我的代码就会为你正常运行。

---

---

所以这是我解决此问题的方法，我没有将检查目录及其创建部分与awk 合并。

cat script.ksh
##First part is doing directory verification here.
while IFS=, read field1 field2 field3 field4 field5 rest
do
  value="${field1/ /}"
  if [[ -n "$value" ]]
  then
      if [[ ! -d "$value" ]]
      then
          mkdir "$value"
      else
          echo "Directory named $value is already existed."
      fi
  else
      echo "first field is empty so, skipping this line..."
  fi
done < "PF.csv"

##This part is responsible for file creation.
awk '
FNR==NR{
  a[++count]=$0
  next
}
FNR>1{
  sub(/ +/,"",$1)
  file=$1"/"$1".py"
  for(i=1;i<=count;i++){
    num=split(a[i],array," ")
    if(i==2 || i==4){
      val_sub=i==2?$2:$6
      sub(/[0-9]+\.[0-9]+mm/,val_sub"mm",array[2])
      for(k=1;k<=num;k++){
        val=(val?val OFS:"")array[k]
      }
      print val > (file)
      val=""
    }
    else{
      print a[i] > (file)
    }
  }
  print a[i] > (file)
  close(file)
  file=val=""
  delete array
}'  FC.py FS="," PF.csv

我已经在我的 TEST 环境中测试成功了，请不要直接在 PROD 中运行此代码，先在非实时环境中测试它。

代码执行后成功创建文件：

cat DP2/DP2.py
App.ActiveDocument.Spreadsheet.setAlias('B2', 'Rbig')
App.ActiveDocument.Spreadsheet.set('B2', '=3.103mm')#set Rbig here
App.ActiveDocument.Spreadsheet.setAlias('F2', 'Llower')
App.ActiveDocument.Spreadsheet.set('F2', '=7.666mm')#set Llower here
App.ActiveDocument.recompute()

cat DP0/DP0.py
App.ActiveDocument.Spreadsheet.setAlias('B2', 'Rbig')
App.ActiveDocument.Spreadsheet.set('B2', '=4.590mm')#set Rbig here
App.ActiveDocument.Spreadsheet.setAlias('F2', 'Llower')
App.ActiveDocument.Spreadsheet.set('F2', '=20mm')#set Llower here
App.ActiveDocument.recompute()