src/tools/perlcheck/find_perl_files


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

# src/tools/perlcheck/find_perl_files

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

find_perl_files () {
	if [ $# -eq 0 ]; then
		echo 'No files to process' 1>&2
		return
	fi
    {
		# 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/'
}