shell的grep在perl的转换

liang573728

UID: 38481
帖子: 162
积分: 372
在线时间: 1 天 12 小时

1^# liang573728 发表于 2007-12-11 16:48

shell的grep在perl的转换

在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

UID: 9630
帖子: 160
积分: 368
在线时间: 1 天 11 小时

2^# lvlfforever 发表于 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;

lvlfforever

UID: 9630
帖子: 160
积分: 368
在线时间: 1 天 11 小时

3^# lvlfforever 发表于 2007-12-11 17:15

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

liang573728

UID: 38481
帖子: 162
积分: 372
在线时间: 1 天 12 小时

4^# liang573728 发表于 2007-12-11 17:27

谢谢