采用Perl CGI - 临时上传文件

Question

改变位置已经移动现有的脚本到一个新的服务器，功能无法正常工作了：

$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; 

Answer 1

非常感谢，Сухой27，为您的意见，解决的方法很简单（一旦你知道）我刚刚更换上面的代码：

$ENV{TMPDIR}=$temp_dir;