perl--简单的根据hash过滤替换字符串

前端之家收集整理的这篇文章主要介绍了perl--简单的根据hash过滤替换字符串前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
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/common
aaaaaaaa/release
bbbbbbbb/ac_s110
cccc/ddddd/libc

猜你在找的Perl相关文章