Hi Team,
My Program is below
use DBI;
use DBD::Oracle;
use diagnostics;
use DBIx::Report::Excel;
my $ReportDate ='ABC';
my $SheetName='Test_'.$ReportDate.'.xls';
my $report = DBIx::Report::Excel->new($SheetName);
$sql2='select T.Name from TABLENAME T where T.Type = \'MASTER\' and e
+xists (select 1 from TABLENAME T2 where T2.Name = T.Name and T2.Name
+like \'Data%\')';
print $sql2;
$report->dbh(DBI->connect($odbc_dsn,$username,$password)) or die "Coul
+d not connect to DB with configuration provided";
print "Retrieving from Database is Starting\n";
$report->sql('
/* ---
title: Columns
--- */
'.$sql2);
$report->write();
$report->close();
--------------
Note : I have removed the information of Database details and other relavant details.
Above program works fine but the problem is I need to use not exists to get my desired data. If I change the code and make it not exists then this error comes
Bad table or column name: 'exists ^0^' has chars not alphanumeric or underscore!
I checked on google and several posts on couple of websites and found out that I need to remove non alphanumeric data from string and I added this in my code
$sql2 =~ s/[^a-zA-Z0-9 _,-='()]//g
But same error was still coming.
Can anyone please suggest what could be the real issue.
Also, I have removed several lines of code, so please ignore if some information is missing (like missing variables, declaration, connection info)
Please help me!!!