verify_output.pl

来自「pl/sql中记log的函数」· PL 代码 · 共 15 行

my @levels = ( 'DEBUG', 'INFO', 'WARN', 'ERROR', 'FATAL' );
my @expected_lines = ( 7, 6, 3, 2, 1 );

for (my $index = 0; $index <= $#levels; $index++) {
    my $lines = 0;
    my $filename = "log/log4plsql_".$levels[$index].".log";
    open INPUT, $filename;
    while (<INPUT>) {
        $lines++;
    }
    ($lines == $expected_lines[$index]) or die "ERROR: ".$filename.": expected ".$expected_lines[$index]." lines, found ".$lines."\n"; 
    print STDOUT "INFO: ".$filename." contains correct number of log entries.\n";
}
print STDOUT "INFO: Test completed successfully!!\n";