That helped. Unfortunately I am not getting buffer overflow errors. The total size of the email is 40k.
So I don't see why I would get a page overflow error. Any ideas?
INFO - Opening DBI connection
page overflow at /home/oracle/scripts/findMostExpensiveSQL.pl line 126
+.
at /home/oracle/scripts/findMostExpensiveSQL.pl line 126.
findMostExpensiveSQL::print_query_results(DBI::db=HASH(0x2c0d7
+00), "\x{a}SELECT * FROM (\x{a}SELECT sql_id, TO_CHAR(MIN(last_loa
+d_time"...) called at /home/oracle/scripts/findMostExpensiveSQL.pl li
+ne 252
page overflow at /home/oracle/scripts/findMostExpensiveSQL.pl line 126
+.
at /home/oracle/scripts/findMostExpensiveSQL.pl line 126.
findMostExpensiveSQL::print_query_results(DBI::db=HASH(0x2c0d7
+00), "\x{a}SELECT * FROM (\x{a}SELECT sql_id, TO_CHAR(MIN(last_loa
+d_time"...) called at /home/oracle/scripts/findMostExpensiveSQL.pl li
+ne 252
page overflow at /home/oracle/scripts/findMostExpensiveSQL.pl line 126
+.
at /home/oracle/scripts/findMostExpensiveSQL.pl line 126.
findMostExpensiveSQL::print_query_results(DBI::db=HASH(0x2c0d7
+00), "\x{a}SELECT * FROM (\x{a}SELECT t.sql_id, TO_CHAR(MIN(t.last_lo
+ad_tim"...) called at /home/oracle/scripts/findMostExpensiveSQL.pl li
+ne 260
page overflow at /home/oracle/scripts/findMostExpensiveSQL.pl line 126
+.
at /home/oracle/scripts/findMostExpensiveSQL.pl line 126.
findMostExpensiveSQL::print_query_results(DBI::db=HASH(0x2c0d7
+00), "\x{a}SELECT * FROM (\x{a}SELECT t.sql_id, TO_CHAR(MIN(t.last_lo
+ad_tim"...) called at /home/oracle/scripts/findMostExpensiveSQL.pl li
+ne 260
page overflow at /home/oracle/scripts/findMostExpensiveSQL.pl line 126
+.
at /home/oracle/scripts/findMostExpensiveSQL.pl line 126.
findMostExpensiveSQL::print_query_results(DBI::db=HASH(0x2c0d7
+00), "\x{a}SELECT * FROM (\x{a}SELECT t.sql_id, TO_CHAR(MIN(t.last_lo
+ad_tim"...) called at /home/oracle/scripts/findMostExpensiveSQL.pl li
+ne 260
page overflow at /home/oracle/scripts/findMostExpensiveSQL.pl line 126
+.
at /home/oracle/scripts/findMostExpensiveSQL.pl line 126.
findMostExpensiveSQL::print_query_results(DBI::db=HASH(0x2c0d7
+00), "\x{a}SELECT * FROM (\x{a}SELECT t.sql_id, TO_CHAR(MIN(t.last_lo
+ad_tim"...) called at /home/oracle/scripts/findMostExpensiveSQL.pl li
+ne 260
sub print_query_results {
my $dbh = shift;
my $sql_query = shift;
my $sql = SQL::Beautify->new;
my ( $sql_id, $min_last_load_time, $buffer_gets, $disk_reads, $exec
+utions, $sorts, $parse_calls, $sql_fulltext );
my $return_scalar = qq{
};
my $sth = $dbh->prepare( $sql_query );
my $formatted_sql;
$sth->execute();
$sth->bind_columns( undef, \$sql_id, \$min_last_load_time, \$buffer
+_gets, \$disk_reads, \$executions, \$sorts, \$parse_calls, \$sql_full
+text );
format OUTPUT =
@|||||||||||||||@||||||||||||||||||||@|||||||||||||||@|||||||||||||||@
+|||||||||||||||@|||||||||||||||@|||||||||||||||
'SQL_ID', 'min_last_load_time','buffer_gets', 'disk_reads', '
+executions', 'sorts', 'parse_calls',
@<<<<<<<<<<<<<<<@>>>>>>>>>>>>>>>>>>>>@>>>>>>>>>>>>>>>@>>>>>>>>>>>>>>>@
+>>>>>>>>>>>>>>>@>>>>>>>>>>>>>>>@>>>>>>>>>>>>>>>
$sql_id, $min_last_load_time, $buffer_gets, $disk_reads, $
+executions, $sorts, $parse_calls,
@*
$sql_fulltext
.
open OUTPUT, '>', \$return_scalar;
while( $sth->fetch() ) {
$formatted_sql = SQL::Beautify->new;
$formatted_sql->query( $sql_fulltext );
$sql_fulltext = $formatted_sql->beautify;;
OUTPUT->flush();
write OUTPUT;
}
close OUTPUT;
return $return_scalar;
}
2018-09-22 Athanasius added code tags