2011-10-12 05:13:58 +02:00
|
|
|
# Perl grep since 'grep -P' is terrible.
|
|
|
|
|
if (( $# < 1 )) ; then
|
2012-01-19 08:28:01 +01:00
|
|
|
print "usage: $0 pattern [file ...]" >&2
|
2011-10-12 05:13:58 +02:00
|
|
|
return 1
|
|
|
|
|
fi
|
|
|
|
|
|
|
|
|
|
local pattern="$1"
|
|
|
|
|
shift
|
|
|
|
|
|
|
|
|
|
perl -nle 'print if /'"$pattern"'/;' "$@"
|
|
|
|
|
|
