DBD::AnyData::st execute failed: Execution ERROR: Error Opening File-Parser: Can't Locate AnyData/Format/Pipe.pm in @INC <@INC contains......
I have installed these modules in my system.The Script is running fine as expected but when packed into exe file,it is not working. Please find below my ScriptMy doubt was whether Module::ScanDeps. module in pp utility is listing all the dependent modules in Anydata.pm to pack. I tried adding this module also while packing(Ex: pp -o test.exe -M AnyData test.pl).But it faileduse DBI; use strict; use DBI::DBD::SqlEngine; use AnyData; use DBD::AnyData; unlink "QueryResult.txt"; print "\nEnter the input file name with path info : \n"; chomp( my $dir = <STDIN>); my ($directory,$file_name); if($dir=~m/(.*\\)([^\\]+)$/is) { $directory=$1; $file_name=$2; $file_name=~s/\.[^>]*$//igs; } $dir =~ s!\\!\/!igs; print "\nEnter the file delimiter(Pipe,CSV,Tab) : \n"; chomp( my $deli = <STDIN>); print "\nDo you want to count the number of lines in the input file(1= +Yes,0=No) \n"; chomp( my $depend_flag = <STDIN>); if($depend_flag==1) { open(IN,"$dir"); my @str = <IN>; close(IN); my $lines=scalar(@str); print "The number of lines in $dir is $lines.\n"; } query: print "\nEnter the query to execute : \n"; chomp( my $query = <STDIN>); my $dbh = DBI->connect('dbi:AnyData:'); $dbh->func( "$file_name", "$deli", "$dir",'ad_catalog'); my $sth = $dbh->prepare("$query"); $sth->execute(); print "\n"; while (my $row = $sth->fetch) { print "@$row\n"; open(APPEND,">>$directory/QueryResult.txt"); print APPEND "@$row\n"; close(APPEND); } print "\nDo you want to execute another query(1=Yes,0=No) \n"; chomp( my $flag = <STDIN>); if($flag==1) { goto query; } else { exit; }
Please help me on this. Thanks in Advance.
In reply to Help needed in Perl exe creation by Allwin
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |