我正在运行一个perl脚本,它应该从一个网站获取GIF,将它们移动到另一个网站,并将链接写入一个标有日期的index.html文件。它非常好地执行移动操作,但无法写入index.html文件。我已打开警告,但他们没有告诉我脚本为什么不执行写操作。
相关部分如下:
## Do some parsing to insert date information into index.html...
open(FILE, "<", $from);
my @index = <FILE>;
close(FILE);
## Don't just copy - change the date info so each page is well labeled...
my $line = ''; # declaration for foreach loop below
open(INDEX, ">", $to) or die "Can't open '$to': $!";
# open index.html to write to
foreach $line (@index){
$line =~ s/DATE/$months[$mon] $mday, $year at 3pm ET to next day at 3pm/;
print INDEX $line;
}
close(INDEX);
任何帮助将不胜感激。谢谢。
答案 0 :(得分:0)
您不会检查是否已成功打开$from
。
open(FILE, "<", $from) or die "$from: $!";
除此之外,您还可以查看其他一些内容。
$from
的价值是什么?@index
读到了多少条记录?$to
的价值是什么?