perl -pi -e ’s/startpos\((\d), (\d), (\d)\)/”startpos\(” .$1. “, ” .$2. “, ” .($3+1). “\)”/ge’
echo "123"|perl -p -e 's/(\d+)/$1+4/ge'
echo "123"|perl -p -e 's/(\d+)/$1\/7/ge'
perl -pi -e ’s/startpos\((\d), (\d), (\d)\)/”startpos\(” .$1. “, ” .$2. “, ” .($3+1). “\)”/ge’
echo "123"|perl -p -e 's/(\d+)/$1+4/ge'
echo "123"|perl -p -e 's/(\d+)/$1\/7/ge'
转载于:https://www.cnblogs.com/levy/p/6276822.html