prezto/plugins/perl/functions/pgs

# Perl Global Substitution
if (( $# < 2 )); then
  print "usage: $0 find replace [file ...]" >&2
  return 1
fi

local find="$1"
local replace="$2"
repeat 2 shift

perl -i.orig -pe 's/'"$find"'/'"$replace"'/g' "$@"
Moved hub into the git plugin. 2011-10-12 03:13:58 +00:00			`# Perl Global Substitution`
			`if (( $# < 2 )); then`
Standardized error messages. 2012-01-19 07:28:01 +00:00			`print "usage: $0 find replace [file ...]" >&2`
Moved hub into the git plugin. 2011-10-12 03:13:58 +00:00			`return 1`
			`fi`

			`local find="$1"`
			`local replace="$2"`
			`repeat 2 shift`

			`perl -i.orig -pe 's/'"$find"'/'"$replace"'/g' "$@"`