perl--簡單的根據hash過濾替換字串

標籤：替換字串   perl   

my %TEMP=(‘${TMP}‘=>‘SSS‘,          ‘${PROJECT_ROOT}‘=>‘aaaaaaaa‘,          ‘${MCB_PATH}‘=>‘bbbbbbbb‘,          ‘${PATH}‘=>‘cccc‘,          ‘${VERSION}‘=>‘ddddd‘          );while(<DATA>){ s/(\$\{.+?\})/$TEMP{$1}/ while $_=~/\$\{.+\}/;print $_;}__DATA__${TMP}/lib/common${PROJECT_ROOT}/release${MCB_PATH}/ac_s110      ${PATH}/${VERSION}/libc

結果：

SSS/lib/commonaaaaaaaa/releasebbbbbbbb/ac_s110cccc/ddddd/libc

本文出自 “RZL_01的部落格” 部落格，請務必保留此出處http://rzl01.blog.51cto.com/3004337/1586112

perl--簡單的根據hash過濾替換字串