perl 正则进行数学运算

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'