prezto/plugins/perl/functions/prep

# Perl grep since 'grep -P' is terrible.
if (( $# < 1 )) ; then
  print "usage: $0 pattern [file ...]" >&2
  return 1
fi

local pattern="$1"
shift

perl -nle 'print if /'"$pattern"'/;' "$@"
Moved hub into the git plugin. 2011-10-11 23:13:58 -04:00			`# Perl grep since 'grep -P' is terrible.`
			`if (( $# < 1 )) ; then`
Standardized error messages. 2012-01-19 02:28:01 -05:00			`print "usage: $0 pattern [file ...]" >&2`
Moved hub into the git plugin. 2011-10-11 23:13:58 -04:00			`return 1`
			`fi`

			`local pattern="$1"`
			`shift`

			`perl -nle 'print if /'"$pattern"'/;' "$@"`