src/tools/perlcheck/find_perl_files


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# src/tools/perlcheck/find_perl_files

# shell function to find all perl files in the source tree

find_perl_files () {
    {
		# take all .pl and .pm files
		find . -type f -name '*.p[lm]' -print
		# take executable files that file(1) thinks are perl files
		find . -type f -perm -100 -exec file {} \; -print |
		egrep -i ':.*perl[0-9]*\>' |
		cut -d: -f1
	} | sort -u | grep -v '^\./\.git/' 
}