J
jan_buys
Hi,
Hope this is a quickie for you toughened perl gods.
I am using unlink in a CGI script (server currently running under my
own admin account) but I can't get it to remove a file with the unlink
command. The script should be cross-platform, so I can't use a system
command for this :
code :
$remfn = $FilePath.$PlatformSlash.$NFN;
my $cnt = unlink (qw|"$remfn"|); # db too
open (DEBUG, "> test.txt"); # db
print DEBUG "$remfn, $cnt, $!"; # db
close (DEBUG); # db
my debug file then shows :
c:\Program Files\Apache
Group\Apache\htdocs\noticeboard\uploads\UPL_8848.upl
, 0, No such file or directory
Which is strange, because the file IS there.
btw : tried these variants too :
unlink "$remfn";
unlink ("$remfn");
Thanks for any help !
Hope this is a quickie for you toughened perl gods.
I am using unlink in a CGI script (server currently running under my
own admin account) but I can't get it to remove a file with the unlink
command. The script should be cross-platform, so I can't use a system
command for this :
code :
$remfn = $FilePath.$PlatformSlash.$NFN;
my $cnt = unlink (qw|"$remfn"|); # db too
open (DEBUG, "> test.txt"); # db
print DEBUG "$remfn, $cnt, $!"; # db
close (DEBUG); # db
my debug file then shows :
c:\Program Files\Apache
Group\Apache\htdocs\noticeboard\uploads\UPL_8848.upl
, 0, No such file or directory
Which is strange, because the file IS there.
btw : tried these variants too :
unlink "$remfn";
unlink ("$remfn");
Thanks for any help !