Perl写入html文件无效

时间:2016-09-11 15:33:54

标签: perl

我正在运行一个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); 

任何帮助将不胜感激。谢谢。

1 个答案:

答案 0 :(得分:0)

您不会检查是否已成功打开$from

open(FILE, "<", $from) or die "$from: $!";

除此之外,您还可以查看其他一些内容。

  • $from的价值是什么?
  • 您在@index读到了多少条记录?
  • $to的价值是什么?