Functions/Example/zpgrep


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"
}