#!/usr/bin/perl -C0
use strict;
use warnings;
use DBI;
sub agg_verification
{
my ($list,$tblname,$values);
my $res1=undef;
my $res2=undef;
#First DB Connection******
my $connstr = "ENG=xxx;CommLinks=tcpip{port=xxx};UID=xxx;PWD=xxx";
my $dbh = DBI->connect( "DBI:SQLAnywhere:$connstr", '', '', {AutoCommit => 0} ) or warn $DBI::errstr;
my $stmt="select col1||':'||col3 as a, col2||'('||col3||')' as b from table where col1 like '%xxxx:((15))%'"; #making 'a' as primary key for fetchall_hashref() later.
my $sth=$dbh->prepare($stmt) or warn $DBI::errstr;
$sth->execute() or warn $DBI::errstr;
#Second DB Connection******
my $connstr1 = "ENG=xxx;CommLinks=tcpip{port=xxx};UID=xxx;PWD=xxx";
my $dbh1 = DBI->connect( "DBI:SQLAnywhere:$connstr1", '', '', {AutoCommit => 0} ) or warn $DBI::errstr;
my ($sth1,$stmt1,$stmt2);
#creating, opening and writing the result in a file
open my $fh, '+>>', "/eniq/home/dcuser/output.txt" or warn "Cannot open output.txt: $!";
my $res = $sth->fetchall_hashref('a');
foreach my $key(sort keys %$res) {
my @col1 = $res->{$key}->{'a'};
$list=\@col1;
foreach my $item(@$list)
{
my @values=${$res}{$item}->{'b'};
$values=\@values;
my @tblname=$item=~ m/[(\w*)(\:)](DC\w*)/; #trimming table name
$tblname =\@tblname;
#print $fh "TABLENAME :@$tblname\n";
foreach my $raw(@$tblname) #Extracting _RAW data*********************
{
$raw.="_RAW";
chomp($raw);
$stmt1 = "select @$values from $raw";
$stmt2 = "";
$sth1=$dbh1->prepare($stmt1) or warn $DBI::errstr;
$sth1->execute() or warn $DBI::errstr;
my $max_rows1 = 5_000;
$res1 = $sth1->fetchall_arrayref(undef,$max_rows1);
}
foreach my $day(@$tblname) #Extracting _DAY DATA********************
{
$day =~ s/(\_RAW)//;
chomp($day);
$day .="_DAY";
$stmt2 = "select @$values from $day";
$sth1=$dbh1->prepare($stmt2) or warn $DBI::errstr;
$sth1->execute() or warn $DBI::errstr;
my $max_rows = 5_000;
$res2 = $sth1->fetchall_arrayref(undef,$max_rows);
}
if(@$res1 == @$res2)
{
print $fh "PASS at @$values\n";
}
else
{
print $fh "FAIL at @$values\n";
}
}
}
close $fh or warn "Couldn't close file properly";
$sth1->finish();
$sth->finish();
$dbh1->disconnect;
$dbh->disconnect;
}
agg_verification();
伙计们,我想比较 $res1 和 $res2 中的数值,但我没有得到它通过或失败的结果。无论更改如何,我的输出都是“通过”。请建议我如何在不使用外部 CPAN 库的情况下比较上面代码中数组引用的值,因为我没有更新或添加库的权限。