作为一个更广泛的脚本,我用了一系列的perl -pi命令来摆脱乳胶各种文物和mistypings的一部分。加快了一系列的perl -pi命令
的片段是这样的:
perl -pi -e "s/”/\''/g" *.txt
perl -pi -e "s/“/\`\`/g" *.txt
perl -pi -e "s/,/, /g" *.txt
perl -pi -e "s/ ,/,/g" *.txt
perl -pi -e "s/ !/!/g" *.txt
perl -pi -e "s/\&/ and /g" *.txt
perl -pi -e "s/\n/\n\n/g" *.txt
perl -pi -e "s/\\\\em/\\\\em /g" *.txt
perl -pi -e "s/’/'/g" *.txt
perl -pi -e "s/\*\*\*/\\\\split/g" *.txt
* .TXT约为50-80文件和这个片断接受一个令人惊讶的长时间运行 - 我怀疑把套入适当的perl脚本将改善效力。我的问题是:perl中的哪些方法对于一组简单替换具有最快的执行时间?
太棒了 - 有没有关于加入声明的奇怪事情?我得到“没有足够的论据加入或-e线12串,在EOF BEGIN不安全错误后 - 编译在-e行12中止” :( – Joe
@Joe,坏引用我的一部分。用'“''的Perl的-e里面” ...''没有正确转义它。固定 – ikegami
顺便说一句,我用'\ x27'和'“'代替的'“',因为它们比'更具可读性”“”'或者''“”‘',否则将需要逃避'’' – ikegami