虽然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\\;
$转成\$