作者nash7555 (Caspar)
看板Perl
标题[请益] 两份log差异比较
时间Sat Mar 28 23:23:15 2020
各位高手先进~
小弟初学perl, 想以perl撰写一个比较log差异(file1, file2)的自动化程式
log的内容:
逐行条列error, warning讯息
功能:
两份log进行逐行比对, 如果有份都有的忽略。
如果出现"讯息内容有差异"或者"多一项error/warrning", 将此讯息抓出并另存
一个新档中。
目前症结点:
想做两个回圈的方式, 两个log皆逐行比对。换句话说,file1抓line1与file2
逐行确认, 若有找到相同, 直接忽略。改由file1抓line2与file2逐行确认, 若
file2整份扫完, 皆无相同, 将file1的line2另存新档, 以此类推。
若高手, 先进有更好写法, 也可提供。
目前完成的code内容: (###为卡关处......)
#!/usr/bin/perl -w
print "Enter the name of original file: ";
chomp($original_file = <STDIN>);
print "Enter the name of new file: ";
chomp($new_file = <STDIN>);
open(ORIF, "<" ,$original_file) or die "\nError: can't open $original_file
file.";
open(NEWF, "<" ,$new_file) or die "\nError: can't open $new_file file.";
open(TEMPORI, ">" , "temp_$original_file") or die "\nCould not create and
write a temp file for original.";
open(TEMPNEW, ">" , "temp_$new_file") or die "\nCould not create and write a
temp file for new.";
open(DIFFLIST, ">" ,"difference_list.txt") or die "\nCould not create and
write a temp file for new.";
$cnt_debug = 0;
while (<ORIF>){
my $line = $_;
if ($line =~ /^Warning\s+\(([0-9]+)\):\s+.*$/){
print TEMPORI $line;
}else{
if ($line =~ /^Warning: .*$/){
print TEMPORI $line;
}else{
if ($line =~/^(Critical |\s*)Warning\s+\(([0-9]+)\):\s+.*$/){
print TEMPORI $line;
}else{
if ($line =~ /^Critical Warning: supported quartus
version.*$/){
}else{
if ($line =~ /^Critical Warning: project is run on.*$/){
}else{
if ($line =~ /^Error\s+\(([0-9]+)\):\s+.*$/){
print TEMPORI $line;
}else{
if ($line =~ /^Error: .*$/){
print TEMPORI $line;
}else{
}
}
}
}
}
}
}
}
while (<NEWF>){
my $line = $_;
if ($line =~ /^Warning\s+\(([0-9]+)\):\s+.*$/){
print TEMPNEW $line;
}else{
if ($line =~ /^Warning: .*$/){
print TEMPNEW $line;
}else{
if ($line =~/^(Critical |\s*)Warning\s+\(([0-9]+)\):\s+.*$/){
print TEMPNEW $line;
}else{
if ($line =~ /^Critical Warning: supported quartus
version.*$/){
}else{
if ($line =~ /^Critical Warning: project is run on.*$/){
}else{
if ($line =~ /^Error\s+\(([0-9]+)\):\s+.*$/){
print TEMPNEW $line;
}else{
if ($line =~ /^Error: .*$/){
print TEMPNEW $line;
}else{
}
}
}
}
}
}
}
}
close (ORIF); close (NEWF); close (TEMPORI); close (TEMPNEW);
open(TEMPORI, "<" , "temp_$original_file") or die "\nCould not read a temp
file for original.";
open(TEMPNEW, "<" , "temp_$new_file") or die "\nCould not read a temp file
for new.";
###while (<TEMPNEW>){
### my $ind_diff = 0;
### my $line_new = $_;
### print "NEW_" . $line_new;
### foreach my $line_ori (<TEMPORI>){
### print "ORI_" . $line_ori;
###
### if ($line_new eq $line_ori){
### $cnt_debug--;
### print $cnt_debug . "\n";
### print $ind_diff . "\n";
### }else{
### $cnt_debug++;
### print $cnt_debug . "\n";
### $ind_diff = 1;
### print $ind_diff . "\n";
### }
### }
###
### if ($ind_diff eq 1){
### print DIFFLIST $line_new . "\n";
### }else{
### }
###}
close (TEMPORI);
close (TEMPNEW);
close (DIFFLIST);
--
The elevator to success is out of order. You'll have to use the stairs one
step at a time.
像搭电梯般快速成功是不切实际的。你必需沿着楼梯，一步一阶的往上爬。
Joe Girard
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.136.150.97 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Perl/M.1585409001.A.046.html
1F：推 herculus6502: diff是否是你要的? 03/29 20:37