shell的grep在perl的转换

liang573728

在shell中，如下代码
ora_msg=`grep -i ORA- $sql_log`
if [ $? -ne 1 ]; then
   echo "-->Oracle system error at `date`\n" | tee -a $MAIN_LOG
   rm -f $sql_log
   exit 1
fi

现在想转换成在perl中现实，该如何写？

谢谢

lvlfforever

open F,$sql_log; open F1,">>$MAIL_LOG"; while (<F>) { &nbsp;if(/ORA\-/gi) { &nbsp;&nbsp;print F1 "-->Oracle system error at ".`date`."\n"; &nbsp;} } close F; close F1;

lvlfforever

忘记了：
rm -f $sql_log
对应的perl是 unlink <F>

liang573728

谢谢