prezto_config/plugins/perl/functions/prep

12 lines
191 B
Plaintext
Raw Normal View History

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"'/;' "$@"