/
githubmirror
/
postgres
Обзор
Документация
Войти
/
githubmirror
/
postgres
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
src/tools/perlcheck/find_perl_files
18 строк
473 B
Tom Lane
Use "grep -E" not "egrep".
13 май 2026, 19:07
13 май 2026, 19:07
2122281
Код
Авторство
О чём код?
# 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 | grep -E -i ':.*perl[0-9]*\>' | cut -d: -f1 } | sort -u | grep -v '^\./\.git/' }