写了一个统计文件行数的脚本，请求测试反馈

ran3guns

这个脚本统计.c, .h,shell, perl,python文件有效行数。-l 可以指定统计深度。哪位有时间请帮忙测试下。速度有点慢！欢迎各种建议!

1. 
   
2. #!/bin/bash
   
3. 
   
4. #
   
5. # func: count .c/.h/shell/perl/python files lines
   
6. # version: 1.0
   
7. # at Tue Aug  7 16:20:50 CST 2012
   
8. #
   
9. 
   
10. 
    
11. ###############################################################
    
12. #### define variables
    
13. ###############################################################
    
14. 
    
15. # level deepth of recursive
    
16. LEVEL=10000
    
17. # the work dir
    
18. DEST_DIR=.
    
19. 
    
20. #XXX_FILES the total numbers  of XXX files
    
21. #XXX_LINES the total lines of all the XXX files
    
22. 
    
23. C_FILES=
    
24. C_LINES=
    
25. 
    
26. H_FILES=
    
27. H_LINES=
    
28. 
    
29. SHELL_FILES=
    
30. SHELL_LINES=
    
31. 
    
32. PERL_FILES=
    
33. PERL_FILES=
    
34. 
    
35. PYTHON_FILES=
    
36. PYTHON_LINES=
    
37. 
    
38. ###############################################################
    
39. #### define functions
    
40. ###############################################################
    
41. 
    
42. usage(){
    
43.         echo "`basename $0` dir [-l level]"
    
44. }
    
45. 
    
46. is_c_file(){
    
47.         [ "${1##*\.}" = "c" ]
    
48. }
    
49. is_h_file(){
    
50.         [ "${1##*\.}" = "h" ]
    
51. }
    
52. is_shell_file(){
    
53.         file "$1" | grep -F "shell script" >/dev/null
    
54. }
    
55. is_perl_file(){
    
56.         file "$1" | grep -F "perl script" >/dev/null
    
57. }
    
58. is_python_file(){
    
59.         file "$1" | grep -F "python script" >/dev/null
    
60. }
    
61. count_c_file(){
    
62.                 cat "$@" |
    
63.                 sed -r -e '/^[[:space:]]*\/\*/,/\*\/[[:space:]]*$/d' \
    
64.                 -e '/^[[:space:]]*\/\//d' \
    
65.                 -e '/^[[:space:]]*\/\*/d' \
    
66.                 -e '/^[[:space:]]*$/d' |
    
67.                 wc -l
    
68. }
    
69. count_h_file(){
    
70.         count_c_file "$@"
    
71. }
    
72. count_shell_file(){
    
73.         cat "$@" |
    
74.         sed -re '1s/#/!/' \
    
75.             -e '/^[[:space:]]*#/d' \
    
76.             -e '/^[[:space:]]*$/d' |
    
77.         wc -l
    
78. }
    
79. count_perl_file(){
    
80.         count_shell_file "$@"
    
81. }
    
82. count_python_file(){
    
83.                 cat "$@" |
    
84.                 sed -e '1s/#/!/' |
    
85.                 sed -r -e '/^[[:space:]]*"""/,/"""[[:space:]]*$/d' \
    
86.                        -e '/^[[:space:]]*#/d' \
    
87.                        -e '/^[[:space:]]*$/d' |
    
88.                 wc -l
    
89. }
    
90. count_lines() {
    
91.         ((cur_deep++ > $LEVEL)) && return
    
92.         for file in $(ls)
    
93.         do
    
94.                 if [ -f "$file" ]
    
95.                 then
    
96.                         is_c_file $file && {
    
97.                                 lines=$(count_c_file $file)
    
98.                                 C_LINES=$(($C_LINES + $lines))
    
99.                                 C_FILES=$(($C_FILES + 1))
    
100.                         }
     
101.                         is_h_file $file  && {
     
102.                                 lines=$(count_h_file $file)
     
103.                                 H_LINES=$(($H_LINES + $lines))
     
104.                                 H_FILES=$(($H_FILES + 1))
     
105.                         }
     
106.                         is_shell_file $file && {
     
107.                                 lines=$(count_shell_file $file)
     
108.                                 SHELL_LINES=$(($SHELL_LINES + $lines))
     
109.                                 SHELL_FILES=$(($SHELL_FILES + 1))
     
110.                         }
     
111.                         is_perl_file $file && {
     
112.                                 lines=$(count_perl_file $file)
     
113.                                 PERL_LINES=$(($PERL_LINES + $lines))
     
114.                                 PERL_FILES=$(($PERL_FILES + 1))
     
115.                         }
     
116.                         is_python_file $file && {
     
117.                                 lines=$(count_python_file $file)
     
118.                                 PYTHON_LINES=$(($PYTHON_LINES + $lines))
     
119.                                 PYTHON_FILES=$(($PYTHON_FILES + 1))
     
120.                         }
     
121.                 elif [ -d "$file" ]
     
122.                 then
     
123.                         cd $file
     
124.                         count_lines
     
125.                 fi
     
126.         done
     
127.         cd ..  && ((cur_deep--))
     
128. }
     
129. 
     
130. ###################################################################
     
131. # main
     
132. ###################################################################
     
133. 
     
134. 
     
135. # check the arguments
     
136. [ $# -lt 1 ] && { # the number of  arguments  at least 2
     
137.         usage
     
138.         exit 2
     
139. }
     
140. # prase the arguments
     
141. while [ $# -gt 0 ]
     
142. do
     
143.         case "$1" in
     
144.                 -l) # parse the level to recursion
     
145.                         if [ -n "$2" ];then
     
146.                                 case "$2" in
     
147.                                         *[^0-9]*)
     
148.                                                 echo "$2 should be integer"
     
149.                                                 exit 2
     
150.                                                 ;;
     
151.                                         *)
     
152.                                                 LEVEL=$2
     
153.                                                 shift 2
     
154.                                                 ;;
     
155.                                 esac
     
156.                         else
     
157.                                 usage
     
158.                                 exit 2
     
159.                         fi
     
160.                         ;;
     
161.                 *) # parse the dir to search
     
162.                         if [ -e "$1" -a -d "$1" ]
     
163.                         then
     
164.                                 DEST_DIR=$1
     
165.                                 shift
     
166.                         else
     
167.                                 echo "$1 not exist or not be a dir"
     
168.                                 exit 2
     
169.                         fi
     
170.                         ;;
     
171.         esac
     
172. done
     
173. 
     
174. # count lines
     
175. cd $DEST_DIR
     
176. count_lines
     
177. 
     
178. # print the result
     
179. printf "file type\tfile numbers\ttotal lines\n"
     
180. printf "%-9s\t%-12d\t%-12d\t\n" ".c" $C_FILES $C_LINES
     
181. printf "%-9s\t%-12d\t%-12d\t\n" ".h" $H_FILES $H_LINES
     
182. printf "%-9s\t%-12d\t%-12d\t\n" "perl" $PERL_FILES $PERL_LINES
     
183. printf "%-9s\t%-12d\t%-12d\t\n" "shell" $SHELL_FILES $SHELL_LINES
     
184. printf "%-9s\t%-12d\t%-12d\t\n" "python" $PYTHON_FILES $PYTHON_LINES

复制代码

personball

好长，，。。。仰望。。。
话说有效行数按什么标准判断呢
如果排除注释和空行，只是单行注释就简单多了

MMMIX

回复 1# ran3guns


    干嘛不用现成的工具，例如 ohcount, cloc

ran3guns

回复 2# personball


    去掉注释，包括单行和多行。
    去掉空行。
    只想到这么多， 其他的还没想到。
  

ran3guns

回复 3# MMMIX


    不知道有现成的工具,学习了!
    同学入职，leader给留了这么个任务，所以就帮忙写了。不过过不了leader的测试文件（leader不给看测试文件...)!

rdcwayx

leader 那么不配合，为何给他做。 让他一边呆着。

bluejack

这玩意 实际意义不大吧  这种简直就是没事找事闲的蛋疼的测试

winway1988

不过过不了leader的测试文件（leader不给看测试文件...)!

过不了是指？
文件个数不对？还是行数不对？

ran3guns

回复 9# winway1988


    统计行数不对。文件个数对。