采用Perl CGI - 临时上传文件
问题描述:
改变位置已经移动现有的脚本到一个新的服务器,功能无法正常工作了:采用Perl CGI - 临时上传文件
$CGITempFile::TMPDIRECTORY = $TempFile::TMPDIRECTORY = $temp_dir;
我发现:“在临时文件的更改处理(v4.05 +):CGI.pm的临时文件处理显着重构,现在这个逻辑全部推迟到File :: Temp [...]“,你可以在这里完整阅读:Link to CGI doc
因此,我在文档File :: Temp(和许多论坛),但没有发现如何更改临时文件的路径。
任何帮助将不胜感激!
PS对于上下文中,它看起来像这样
use CGI::Carp qw(fatalsToBrowser);
use CGI;
[...]
$CGITempFile::TMPDIRECTORY = $TempFile::TMPDIRECTORY = $temp_dir;
[...]
my $cg = new CGI;
答
非常感谢,Сухой27,为您的意见,解决的方法很简单(一旦你知道)我刚刚更换上面的代码:
$ENV{TMPDIR}=$temp_dir;
https://metacpan.org/source/LEEJO/CGI-4.36/lib/CGI.pm#L1025所以它应该是'$ ENV {TEMP}'窗户和'$ ENV {TMPDIR}'不然。 –