1 |
#!/bin/sh |
#!/bin/sh |
2 |
|
|
3 |
# rename methods |
from='params_form'; |
4 |
|
to='as_markup' |
5 |
|
|
6 |
perl -p -i -n -e 's/sub markup/sub as_markup/' `grep -lr 'sub markup' lib t` |
echo "rename method $from -> $to" |
|
perl -p -i -n -e 's/sub data/sub as_data/' `grep -lr 'sub data' lib t` |
|
|
perl -p -i -n -e 's/sub sponge/sub as_sponge/' `grep -lr 'sub sponge' lib t` |
|
7 |
|
|
8 |
perl -p -i -n -e 's/->markup/->as_markup/' `grep -lr -- '->markup' lib t` |
grep -lr $from lib t etc | xargs --verbose -i sh -c "perl -p -i -n -e 's{(sub |->|/)$from}{\1$to}g' {}" && ( |
9 |
perl -p -i -n -e 's/->data/->as_data/' `grep -lr -- '->data' lib t` |
svk diff | vi -R - |
10 |
perl -p -i -n -e 's/->sponge/->as_sponge/' `grep -lr -- '->sponge' lib t` |
) |
|
|
|
|
perl -p -i -n -e 's!/markup!/as_markup!' `grep -lr -- '/markup' lib t etc` |
|
|
perl -p -i -n -e 's!/data!/as_data!' `grep -lr -- '/data' lib t etc` |
|
|
perl -p -i -n -e 's!/sponge!/as_sponge!' `grep -lr -- '/sponge' lib t etc` |
|