Perlのhtmlファイルへの書き込みが機能しない

Question

私は、あるWebサイトからgifを取り出し、別のWebサイトに移動し、dateというラベルのindex.htmlファイルへのリンクを書き込むことになっているperlスクリプトを実行しています。移動操作は非常にうまくいくが、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); 

任意の助けをいただければ幸いです。ありがとうございました。

Answer 1

$fromを正常に開いたことを確認していません。

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

これ以外にも、確認できることがいくつかあります。

• $fromの値は何ですか？
• @indexにいくつのレコードを読んでいますか？
• $toの値は何ですか？