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

概述my %TEMP=('${TMP}'=>'SSS',          '${PROJECT_ROOT}'=>'aaaaaaaa',          '${MCB_PATH}'=>'bbbbbbbb',          '${PATH}'=>'cccc',          '${VERSION}'=>'ddddd'          );while(<DATA>){ s/(\

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

结果：

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

总结

以上是内存溢出为你收集整理的perl--简单的根据hash过滤替换字符串全部内容，希望文章能够帮你解决perl--简单的根据hash过滤替换字符串所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。