getstore在(CGI)perl脚本中不起作用

时间:2013-04-24 14:19:28

标签: perl cgi lwp

我创建了一个小测试脚本来下载图像并将其保存到磁盘:

#!/usr/bin/perl -wT

use LWP::Simple;

print "Content-type: text/plain", "\n\n";
print "TEST\n";
getstore('http://www.google.com/intl/en_ALL/images/logos/images_logo_lg.gif', '/tmp/test.jpg');

# EDIT: added to test permissions:
my $filename = '/tmp/test.txt';
open(my $fh, '>', $filename) or die "Could not open file '$filename' $!";
print $fh "TEST\n";
close $fh;

当我手动运行它时,这是有效的,但如果我从html站点将其作为CGI脚本运行它不起作用。 我确实在屏幕上看到“TEST”,但没有下载图像。

这可能是什么问题?

编辑:我添加了最后一段代码来测试将文件'test.txt'写入同一目录。这也有效,因此权限不会有问题。

0 个答案:

没有答案