複数のテキストファイルからテキストを抽出するためにsed

Question

2つの入力ファイルfileA.txtとfileB.txtがあります。ファイルは、このようなものです：

FileA.txt 
Color 
yellow 
orange 
black 
Fruit 
apple 
banana 
Weekday 
monday 
sunday 

FileB.txt 
Color 
blue 
green 
Fruit 
melon 
Weekday 
saturday 
tuesday 
thursday 

は、私は、Color以下のすべてのファイルでFruit、Weekdayの情報を抽出し、各フィールドに新しいものを作成したいと思います。だから、私の出力は、Color.txt、Fruit.txt、Weekday.txtのような3つのファイルです。

Color.txt 
Color_A 
yellow 
orange 
black 
Color_B 
blue 
green 

Fruit.txt 
Fruit_A 
apple 
banana 
Fruit_B 
melon 

そして、私は今、願っています Weekday.txt

についても同様で、おかげでより明確です。

rm Color.txt Fruit.txt Weekday.txt # old files will spoil this. 
for f in A B 
do 
    while read x 
    do 
     L=${x%${x#?}} 
     l=$(echo $L | tr '[:upper:]' '[:lower:]') 
     if [ $L != $l ] 
     then 
      F=$x.txt 
      echo ${x}_$f >> $F 
     else 
      echo $x >> $F 
     fi 
    done < File$f.txt 
done 

出力：

head {Fruit,Color,Weekday}.txt 
==> Fruit.txt <== 
Fruit_A 
apple 
banana 
Fruit_B 
melon 

==> Color.txt <== 
Color_A 
yellow 
orange 
black 
Color_B 
blue 
green 

==> Weekday.txt <== 
Weekday_A 
monday 
sunday 
Weekday_B 
saturday 
tuesday 
thursday 

仕組み：保留にPOSIXシェルスクリプト（bashのすなわち、ダッシュなど）では

Answer 1

awkレスキュー！

$ awk '{suffix=substr(FILENAME,5,1)} 
     /Color|Fruit|Weekday/{file=$1".txt"; $1=$1"_"suffix} 
      {print > file}' FileA.txt FileB.txt     


$ head {Fruit,Color,Weekday}.txt   

==> Fruit.txt <==                          
Fruit_A 
apple 
banana 
Fruit_B 
melon 

==> Color.txt <== 
Color_A 
yellow 
orange 
black 
Color_B 
blue 
green 

==> Weekday.txt <== 
Weekday_A 
monday 
sunday 
Weekday_B 
saturday 
tuesday 
thursday 

Answer 2

。 （私はこれが学業上の問題であると心配しています。もしOPが上記のシェルコードを外に出して、それが必要であると説明したり批判したりするなら、もっと良いでしょう。）