论坛 › Perl › perl--简单的根据hash过滤替换字符串

沈阳格力专卖店 发表于 2018-8-30 12:03:48

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

my %TEMP=('${TMP}'=>'SSS',　　
          '${PROJECT_ROOT}'=>'aaaaaaaa',
　　
          '${MCB_PATH}'=>'bbbbbbbb',
　　
          '${PATH}'=>'cccc',
　　
          '${VERSION}'=>'ddddd'
　　
          );
　　

　　
while(){
　　
s/(\$\{.+?\})/$TEMP{$1}/ while $_=~/\$\{.+\}/;
　　
print $_;
　　
}
　　

　　
__DATA__
　　
${TMP}/lib/common
　　
${PROJECT_ROOT}/release
　　
${MCB_PATH}/ac_s110
　　
${PATH}/${VERSION}/libc

查看完整版本: perl--简单的根据hash过滤替换字符串