如何使用Perl制作shell脚本？

Question

我有一个Perl脚本调用replaceUp：

#!/usr/bin/perl           

search=$1 
replace=$2 

find . -type f -exec perl -p -i -e "s/$search/$replace/g" {} \; 

剧本没有得到加载。这表明我的脚本是错误的。

如何使用Perl制作shell脚本？

Answer 1

第一行应该是#!/bin/sh，而不是#!/usr/local/bin/perl。你错了，那是一个Perl脚本;它是一个调用Perl的shell脚本。

它也不会实际工作，因为$ search和$ replace不会在单引号内插入。尝试单引号里面的双引号。

或更好的是，尝试my mass search/replace Perl script。我为此保留了一个纯Perl脚本，因为，大规模搜索/替换是危险的，所以不需要多层次的shell元字符解释，从危险到绝对致命。