bcp : 提取sync log file 错误信息 for linux

在bcpad中使用rsync备份， 会得到log,
我们需要在BCPAD（MEMBER）中写一个脚本（WINDOWS可用），具体功能如下：
1、从“c:\rsync_script\”与“c:\robosync_script\”中扩展名为log的文件中提取 出没有成功备份数据的信息。
2、这些信息中可能会包括“skipping overly long name”,"file has vanished" 等关键字。
3、将以上信息保存为一个以txt为扩展名的文件，报存在"c"\bcp_report\"中
4、每天定时执行脚本程序。
5、目标时间定在下周二下班前完成。

#/usr/bin/perl

use warnings;
#get current time as filename for report.

@day=localtime(time());
$mon=$day[4]+1;
$report="/home/seven.zhang/abc/".$mon.$day[3].$day[5].".txt";

open (FILEHANDLE,">>$report");
close (FILEHANDLE);
#`touch /home/seven.zhang/$report`;

`date>>$report`;
 #call subroutine

foreach $dir(qw(/home/seven.zhang/rsync_script/ /home/seven.zhang/robosync_script/)){

$n=&txt($dir);
}

#subroutine

sub txt{
#get all log files

opendir(DH,$dir) or die("can't open $dir:$!\n");
foreach $file(readdir DH){

if($file=~/log/){
$file=$dir.$file;

open(MSG,$file) or die "can't open $file:$!\n";

foreach $_(<MSG>){

#get error message and copy to $report.

if(/skipping overly long name/ || /file has vanished/){
open FILE, ">>$report" or die $!;
print FILE $_;
close FILE;
#`echo "$_">>$report`;

}
}
}
close MSG;
}

closedir DH;
}