mirror of
https://github.com/zsh-users/zsh
synced 2024-10-02 22:24:37 +00:00
33 lines
498 B
Plaintext
33 lines
498 B
Plaintext
# Usage: zpgrep <perl5-compatible regex> <file1> <file2> ... <fileN>
|
|
#
|
|
|
|
zpgrep() {
|
|
local file pattern ret
|
|
|
|
pattern=$1
|
|
shift
|
|
ret=1
|
|
|
|
if ((! ARGC)) then
|
|
set -- -
|
|
fi
|
|
|
|
zmodload zsh/pcre || return
|
|
pcre_compile -- "$pattern"
|
|
pcre_study
|
|
|
|
for file
|
|
do
|
|
if [[ "$file" == - ]] then
|
|
while IFS= read -ru0 buf; do
|
|
pcre_match -- "$buf" && ret=0 && print -r -- "$buf"
|
|
done
|
|
else
|
|
while IFS= read -ru0 buf; do
|
|
pcre_match -- "$buf" && ret=0 && print -r -- "$buf"
|
|
done < "$file"
|
|
fi
|
|
done
|
|
return "$ret"
|
|
}
|