help! please simplify this shell program!

夜未眠

都用ksh还not a good programmer?

Pacific Yan

well, I am just a begineer to shell programming.  I am not a modest guy.  Computer is really too much for me, a biologist to learn!

夜未眠

等 一下，我帮你写一个得了，

夜未眠

文件1

1. 
   
2. #awk script [ cutweek.awk ]
   
3. NR==2{
   
4.         FMT=$0
   
5. }
   
6. NR==3{
   
7.         loc=index($0,"1")
   
8. }
   
9. END{
   
10.         print substr(FMT,loc-1,2)
    
11. }
    

复制代码

文件2

1. 
   
2. #!/bin/sh
   
3. # shell script [ test.sh ]
   
4. if [ $# -ne 1 ];then exit 1;fi
   
5. if [ $1 -lt 1 ] || [ $1 -gt 9999 ];then exit 1;fi
   
6. 
   
7. mon=1
   
8. while [ $mon -le 12 ];do
   
9.         wd=`cal $mon $1 |awk -f cutweek.awk`
   
10.         echo "$1-$mon-1: $wd"
    
11.         mon=$(($mon + 1 ))
    
12. done
    

复制代码

测试:

1. 
   
2. $ ./test.sh 2001
   
3. 2001-1-1: Mo
   
4. 2001-2-1: Th
   
5. 2001-3-1: Th
   
6. 2001-4-1: Su
   
7. 2001-5-1: Tu
   
8. 2001-6-1: Fr
   
9. 2001-7-1: Su
   
10. 2001-8-1: We
    
11. 2001-9-1: Sa
    
12. 2001-10-1: Mo
    
13. 2001-11-1: Th
    
14. 2001-12-1: Sa
    
15. $
    

复制代码

Pacific Yan

You are great!!!  There could be several days have the same low frequency, like 2003:
Friday           1
Sunday         1
Thursday      1
Monday        2
Tuesday       2
Wednesday  2
Saturday      3

then how can I report all of them (Friday, Sunday, Thursday) in one line.   


By the way, if you need something, please let me know.  

Thanks a lot

夜未眠

then how can I report all of them (Friday, Sunday, Thursday) in one line.
请举个输出的例子      
是不是这样

awk脚本不变

1. 
   
2. #!/bin/sh
   
3. # shell script [ test.sh ]
   
4. if [ $# -ne 1 ];then exit 1;fi
   
5. if [ $1 -lt 1 ] || [ $1 -gt 9999 ];then exit 1;fi
   
6. 
   
7. mon=1
   
8. while [ $mon -le 12 ];do
   
9.         da="$1-$mon-1"
   
10.         case `cal $mon $1 |awk -f cutweek.awk` in
    
11.         Mo) w1="${w1:="Mo "}$da ";;
    
12.         Tu) w2="${w2:="Tu "}$da ";;
    
13.         We) w3="${w3:="We "}$da ";;
    
14.         Th) w4="${w4:="Th "}$da ";;
    
15.         Fr) w5="${w5:="Fr "}$da ";;
    
16.         Sa) w6="${w6:="Sa "}$da ";;
    
17.         *) w7="${w7:="Su "}$da ";;
    
18.         esac
    
19.         mon=$(($mon + 1 ))
    
20. done
    
21. 
    
22. for stat in "$w1" "$w2" "$w3" "$w4" "$w5" "$w6" "$w7";do
    
23.         echo $stat
    
24. done
    

复制代码

测试

1. 
   
2. $ ./test.sh 1981
   
3. Mo 1981-6-1
   
4. Tu 1981-9-1 1981-12-1
   
5. We 1981-4-1 1981-7-1
   
6. Th 1981-1-1 1981-10-1
   
7. Fr 1981-5-1
   
8. Sa 1981-8-1
   
9. Su 1981-2-1 1981-3-1 1981-11-1
   
10. $
    

复制代码

powerplane

[quote]原帖由 "acific Yan"]yes, you are really good! By the way, I am a bioinformatics and a biologist, and I am not a good programmer.  So, I am trying to learn something.  Also, do your guys have any any idea want to do somet..........[/quote 发表：

Hehe, I am also a newbie to shell-program, 夜未眠 is really a __GURU__.......

Pacific Yan

[quote]原帖由 "夜未眠"][/quote 发表：
   

No, should like this:

$ test.sh 2003
$ Sunday Thursday Friday


Since in 2003,  Sunday Thursday Friday only appear once, then the OUTPUT should be separated by a single space and sorted in ascending order from Sunday to Saturday, nothing else will be exported except Sunday Thursday Friday

Thanks

夜未眠

脚本

1. 
   
2. #!/bin/sh
   
3. # shell script [ test.sh ]
   
4. 
   
5. if [ $# -ne 1 ];then exit 1;fi
   
6. if [ $1 -ge 1 ] && [ $1 -le 9999 ];then
   
7. 
   
8. da=0
   
9. for st in Sunday Monday Tuesday Wednesday Thursday Friday Saturday;do
   
10.         eval str_$da=$st
    
11.         da=$(($da + 1))
    
12. done
    
13. 
    
14. mon=1
    
15. while [ $mon -le 12 ];do
    
16.         da=`cal $mon $1 |awk 'NR==3{loc=index($0,"1");print (loc-2)/3;exit}'`
    
17.         eval "count_$da=\$((\$count_$da+1))"
    
18.         mon=$(($mon + 1 ))
    
19. done
    
20. 
    
21. da=0
    
22. while [ $da -le 6 ];do
    
23.         eval dcn=\$count_$da
    
24.         if [ $dcn -eq 1 ];then
    
25.                 eval "echo -n \"\$str_$da \""
    
26.         fi
    
27.         da=$(($da + 1))
    
28. done
    
29. echo
    
30. fi
    

复制代码

测试

1. 
   
2. $ ./test.sh 2003
   
3. Sunday Thursday Friday
   
4. $ ./test.sh 1981
   
5. Monday Friday Saturday
   
6. $
   

复制代码

什么时候请吃钣啊?

Pacific Yan

That is no problem if you can give me your telephone number.

However, there is something wrong when I test it on my computer, here is the output:

$ test.sh 2003
final_test[14]: count_2.66667=1:  not found
final_test[14]: count_5.33333=1:  not found
final_test[14]: count_2.66667=1:  not found
final_test[14]: count_6.66667=1:  not found
final_test[14]: count_1.33333=1:  not found
final_test[14]: count_1.33333=1:  not found
-n Sunday
final_test[21]: test: argument expected
final_test[21]: test: argument expected
final_test[21]: test: argument expected
final_test[21]: test: argument expected
final_test[21]: test: argument expected

$