关于在perl中调用awk的问题

虽然perl可以完成awk，sed的功能，但是有些人还是习惯将已经可用的awk，sed脚本嵌入到perl中。

但是光复制粘贴的话，经常会出错：

sed "/[FHOT STKREC]/s/[()]/;/g" /home/lottery/blts/keno/log/ltsapp.p8756.txt.log |awk -F\; '{if($2>="14:27:20" && $2<="15:26:41") m++} END{print m}'

这是因为awk，sed中有些地方在perl脚本中需要转义.

-F\; 转成 -F\\;

$转成\$