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

发布时间：2020-12-15 23:50:31 所属栏目：大数据来源：网络整理

导读：my?%TEMP=('${TMP}'='SSS',??????????'${PROJECT_ROOT}'='aaaaaaaa',??????????'${MCB_PATH}'='bbbbbbbb',??????????'${PATH}'='cccc',??????????'${VERSION}'='ddddd'??????????);while(DATA){?s/(${.+?})/$TEMP{$1}/?while?$_=~/${.+}/;print?$_;}__

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!