Apr 25, 2017, 12:53 PM
Post #1 of 3
I have the following code for CGI
I don't get frm test file, what I really expect. What is wrong?
When I run it get the following print
#use lib "/vhosts/dw18637/lib/web/";
#use ReportTypes::RptReq qw(fru_process_failrpt fru_run_report);
#use ReportTypes::SD qw(sd_flds_all);
use lib $lib_path.'/lib/web';
print "Content-type: text/html\n\n";
my ($filename, $dirs, $suffix) = fileparse($fullpath);
print "$filename $dirs $suffix\n";
which is correct, but what I expect is the suffix, which don't receive.
and I want to get name as
Is the any problem is the code?