|
|
|
новичок
участник
Last Login: 22.02.2005 1:03
Сообщ.: 3,
Visits: 34
|
|
При выполнении скрирта в newtest.html записывается толко footer..
В чем проблема?
#!/usr/local/bin/perl
$newfile = ".../newtest.html";
open (FILE, ">$newfile");
print FILE &site_header();
print FILE &site_footer();
close(FILE);
print "Content-type: text/html";
print "OK";
sub site_header
{
open(HEADERFILE, "header.txt");
@HEADER = <HEADERFILE>;
close(HEADERFILE);
return @HEADER;
}
sub site_footer
{
open(FOOTERFILE, "footer.txt");
@FOOTER = <FOOTERFILE>;
close(FOOTERFILE);
return @FOOTER;
}
.
|
|
|
|
|
Supreme Being
участник
Last Login: 06.02.2007 22:40
Сообщ.: 156,
Visits: 1 722
|
|
а что у тебя получится, если ты для проверки поменяешь местами
print FILE &site_header();
и
print FILE &site_footer();
если в этом случае запишется только header, то ответ, я думаю, появится сам.
|
|
|
|