Perl write to html file not working

Я запускаю скрипт perl, который должен брать gif с одного веб-сайта, перемещать их на другой сайт и писать ссылки на файл index.html, помеченный по дате. Он очень хорошо выполняет операцию перемещения, но не может записывать файл index.html. У меня есть предупреждения, но они не говорят мне, почему сценарий не выполняет операцию записи.Perl write to html file not working

Соответствующая часть выглядит следующим образом:

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

Любая помощь будет оценена. Спасибо.

источник

2016-09-11 Amy Ries

Так что же происходит, когда вы запускаете его? Что вы ожидали вместо этого? – Robert

Вы также можете проверить, что 'close (INDEX)' работал так же, как и для соответствующего открытого. – Robert

Каково значение $ to? Возможно, он пишет в другой каталог. – pmcevoy12

Вы не проверяете, что успешно открыли $from.

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

Кроме этого, есть еще несколько вещей, которые вы могли бы проверить.

Какая ценность $from?
Сколько записей у вас есть @index?
Какая ценность $to?

источник

2016-09-11 16:19:31

Perl write to html file not working

ответ

Смежные вопросы