請(qǐng)求shell朋友的幫助！

哈

有單位代碼及排列順序如下：

1. A001
   
2. A002
   
3. A021
   
4. A022
   
5. A023
   
6. A025
   
7. A027
   
8. A029
   
9. A031
   
10. A093
    
11. A094
    
12. A095

復(fù)制代碼

這樣的順序重復(fù)6次

現(xiàn)從數(shù)據(jù)庫提取數(shù)據(jù)時(shí)，如果某單位無數(shù)據(jù)時(shí)就會(huì)缺行，如下：

1. # cat datas
   
2. A001 9725.11 A
   
3. A021 8856.12 M
   
4. A023 9925.17 P
   
5. A025 0012.45 O
   
6. A031 1010.11 K
   
7. A093 2001.59 L
   
8. A095 4500.09 Y

復(fù)制代碼

以下數(shù)據(jù)重復(fù)6次，但缺失的單位不盡相同；
現(xiàn)要求用shell補(bǔ)齊所有單位，并為缺失的單位輸出“單位代碼 0 Q”，并且單位順序不可混亂：

1. A001 9725.11 A
   
2. A002 0 Q
   
3. A021 8856.12 M
   
4. A022 0 Q
   
5. A023 9925.17 P
   
6. A025 0012.45 O
   
7. A027 0 Q
   
8. A029 0 Q
   
9. A031 1010.11 K
   
10. A093 2001.59 L
    
11. A094 0 Q
    
12. A095 4500.09 Y

復(fù)制代碼

本人的代碼如下：

1. awk 'BEGIN{split("A001 A002 A021 A022 A023 A025 A027 A029 A031 A093 A094 A095",C," ");i=1}
   
2. {
   
3.         if($1==C[i]){printf("%s %s %s\n",$1,$2,$3)}else{printf("%s 0 Q\n",C[i++])};
   
4.         i++;
   
5.         if(i==13){i=1};
   
6. }' datas

復(fù)制代碼

但如果有兩個(gè)或兩個(gè)以上連續(xù)的單位缺失時(shí)，結(jié)果就不對(duì)了，希望大家?guī)兔Γ?br /> 謝謝

guangzongy

不知道這樣符合你的要求嗎？

1. 
   
2. #! /bin/sh
   
3. 
   
4. arry=(A001 A002 A021 A022 A023 A025 A027 A029 A031 A093 A094 A095)
   
5. num=0
   
6. while read Line
   
7. do
   
8. varlocal=(echo ${Line})
   
9. #echo $num
   
10. #echo "${varlocal[1]} = ${arry[$num]}"
    
11. while [ ! "${varlocal[1]}" = "${arry[$num]}" ]
    
12. do
    
13. echo "${arry[${num}]}"' 0 Q'
    
14. num=$(expr $num + 1)
    
15. [ "$num" -eq "12" ]&&num=0
    
16. done
    
17. echo "$Line"
    
18. num=$(expr $num + 1)
    
19. [ "$num" -eq "12" ]&&num=0
    
20. done < data.txt
    

復(fù)制代碼

$ cat data.txt
A001 9725.11 A
A021 8856.12 M
A023 9925.17 P
A025 0012.45 O
A031 1010.11 K
A093 2001.59 L
A095 4500.09 Y
A001 9725.11 A
A021 8856.12 M
A023 9925.17 P
A025 0012.45 O
A031 1010.11 K
A093 2001.59 L
A095 4500.09 Y


$ ./tt1.sh
A001 9725.11 A
A002 0 Q
A021 8856.12 M
A022 0 Q
A023 9925.17 P
A025 0012.45 O
A027 0 Q
A029 0 Q
A031 1010.11 K
A093 2001.59 L
A094 0 Q
A095 4500.09 Y
A001 9725.11 A
A002 0 Q
A021 8856.12 M
A022 0 Q
A023 9925.17 P
A025 0012.45 O
A027 0 Q
A029 0 Q
A031 1010.11 K
A093 2001.59 L
A094 0 Q
A095 4500.09 Y

哈

[quote]原帖由 "guangzongy"][/quote 發(fā)表：

OK！
謝謝！

bitbull

1. touch okfile
   
2. while read line
   
3.         do
   
4.         if grep "$line" datas>/dev/null 2>&1
   
5.                 then line=$(grep "$line" datas)
   
6.                 else line=$(echo "$line" 0 Q)
   
7.         fi
   
8.         echo $line>>okfile
   
9.         done<file
   
10. mv okfile datas

復(fù)制代碼

測試通過

寂寞烈火

原帖由 "bitbull" 發(fā)表：

測試通過

不錯(cuò)~~~    

begincwcw

原帖由 "哈" 發(fā)表：
如果有兩個(gè)或兩個(gè)以上連續(xù)的單位缺失時(shí)，結(jié)果就不對(duì)了，希望大家?guī)兔Γ?br /> 謝謝

在unix5.0.5下通過：

nawk ' BEGIN { i = 1; while((getline < "datas" > 0){
F = $1; S = $2; T = $3; i++ } line = i }
iFound = 0;
{ for(j = 1; j<= line; j++){
if($1 ==  f){
printf("%s %12.2f %s\n", F[j], S[j], T[j])
iFound =1;}
}
if(!iFound) printf("%s %12.2f Q\n", $0, 0);}'  dwbh

其中：datas 為數(shù)據(jù)文件，dwbh 為單位代碼文件。

寂寞烈火

原帖由 "begincwcw" 發(fā)表：
und =1;}
}
if(!iFound) printf("%s %12.2f Q\n", $0, 0);}'  dwbh

其中：datas 為數(shù)據(jù)文件，dwbh 為單位代碼文件。

牛~~~~,高手也!!! 佩服!!!!

bitbull

原帖由 "begincwcw" 發(fā)表：
und =1;}
}
if(!iFound) printf("%s %12.2f Q\n", $0, 0);}'  dwbh

其中：datas 為數(shù)據(jù)文件，dwbh 為單位代碼文件。

begincwcw兄是AWK方面的專家呀,HOHO~~
小弟正加油,受教
      

begincwcw

原帖由 "bitbull" 發(fā)表：


begincwcw兄是AWK方面的專家呀,HOHO~~
小弟正加油,受教
      

稱不上專家，用的比較多而已。

tiantian

for name in `awk '{print $1}' 1`
do
        s1=`sed -n "/$name/"p 2`
        if [ "$s1" !=  "" ]
        then
                echo $s1
        else
                echo $name "0 Q"
        fi
done


1 is code file
2 is data file