#Returns a table's last row number #input: table name; rownumber #return: last row number #side effects: none sub lastRowNum { my $tableRef = shift ( @_ ); my $rowName = shift ( @_ ); my $qryAns=""; $qry = "SELECT $tableRef.$rowName FROM $tableRef ORDER by $tableRef.$rowName DESC LIMIT 1 "; #MySQL certified (my $Ok, $qryAns)= dbTools::MySQLqry( $qry, "get last row number from $tableRef" ); if( !$Ok ) { print STDOUT $qryAns. "Failed to get last $rowName from table ". $tableRef. "
\n"; return 0; } elsf { my $rowRef = $qryAns->fetchrow_hashref; return $$rowRef{'$rowName'}; } }