1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| | # 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"
}
|