Perl schreiben in HTML-Datei funktioniert nicht

Question

Ich bin ein Perl-Skript, das GIFs von einer Website nehmen soll, verschieben Sie sie auf eine andere Website, und schreiben Sie die Links zu einer index.html Datei mit Datum gekennzeichnet. Es macht die Verschiebung sehr gut, kann aber nicht in die Datei index.html schreiben. Ich habe Warnungen aktiviert, aber sie sagen mir nicht, warum das Skript den Schreibvorgang nicht ausführt.

Der relevante Teil sieht wie folgt aus:

## 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); 

Jede Hilfe würde geschätzt. Vielen Dank.

Answer 1

Sie überprüfen nicht, ob Sie erfolgreich $from geöffnet haben.

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

Abgesehen davon gibt es ein paar andere Dinge, die Sie überprüfen könnten.

• Was ist der Wert von $from? Wie viele Datensätze lesen Sie in @index?
• Was ist der Wert von $to?