prezto/plugins/perl/functions/prep

mirror of https://github.com/dcarrillo/prezto.git synced 2024-11-15 12:51:13 +00:00
# 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-12 03:13:58 +00:00			`# Perl grep since 'grep -P' is terrible.`
			`if (( $# < 1 )) ; then`
Standardized error messages. 2012-01-19 07:28:01 +00:00			`print "usage: $0 pattern [file ...]" >&2`
Moved hub into the git plugin. 2011-10-12 03:13:58 +00:00			`return 1`
			`fi`

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

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