2011-10-12 05:13:58 +02:00
|
|
|
# Perl Global Substitution
|
|
|
|
|
if (( $# < 2 )); then
|
2012-01-19 08:28:01 +01:00
|
|
|
print "usage: $0 find replace [file ...]" >&2
|
2011-10-12 05:13:58 +02:00
|
|
|
return 1
|
|
|
|
|
fi
|
|
|
|
|
|
|
|
|
|
local find="$1"
|
|
|
|
|
local replace="$2"
|
|
|
|
|
repeat 2 shift
|
|
|
|
|
|
|
|
|
|
perl -i.orig -pe 's/'"$find"'/'"$replace"'/g' "$@"
|
|
|
|
|
|
