Данный Perl script работает в Linux (локально), но отказывается работать на сервере, т. е. когда его вставляю на страницу.

#!/usr/bin/perl

$!=1;

open (file0,"sites.txt");
print "<p>\n\n";
while ($a<=500){
print getc(file0);

} continue{$a++}
close file0;
print "... ";
print "<a href='sites.html'>Читать дальше>>> </a></p>\n\n";

open (file1,"servers.txt");
print "<p>\n\n";
while ($b<=500){
print getc(file1);

} continue{$b++}
close file1;
print "... ";
print "<a href='servers.html'>Читать дальше>>> </a></p>\n\n";

open (file2,"tuning.txt");
print "<p>\n\n";
while ($c<=500){
print getc(file0);

} continue{$c++}
close file2;
print "... ";
print "<a href='tuning.html'>Читать дальше>>> </a></p>\n\n";

open (file3,"1c.txt");
print "<p>\n\n";
while ($d<=500){
print getc(file1);

} continue{$d++}
close file3;
print "... ";
print "<a href='1c.html'>Читать дальше>>> </a></p>\n\n";

open (file4,"other.txt");
print "<p>\n\n";
while ($e<=500){
print getc(file4);

} continue{$e++}
close file4;
print "... ";
print "<a href='others.html'>Читать дальше>>> </a></p>\n\n";

Смысл в том, чтобы на страницу загружалось по первых 500 b каждого файла, возможно проблемы с выводом.

• Perl script,Асен Тотин, 19:16 , 17-Окт-04

Привет,

> Данный Perl script работает в Linux (локально), но отказывается работать на
>сервере, т. е. когда его вставляю на страницу.

А какая ошибка, если не секрет?

Не мешало бы например поставить "print Content-type: text/html\n\n" перед выводом, чтоб Apache знал что к чему...

WWell,