论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2007-12-11 16:48 |只看该作者 |倒序浏览

在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

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 2007-12-11 17:11 |只看该作者

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

lvlfforever

白手起家

论坛徽章:: 0

3楼 [报告]

发表于 2007-12-11 17:15 |只看该作者

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

liang573728

稍有积蓄

论坛徽章:: 0

4楼 [报告]

发表于 2007-12-11 17:27 |只看该作者

谢谢

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › shell的grep在perl的转换

shell的grep在perl的转换 [复制链接]