Помогите исправить ошибку. PERL

Тема: Помогите исправить ошибку. PERL

Расширенный поиск по форуму

Внимание! В связи с устареванием топика эта страница была взята из кэша.

Автор

Сообщение

GAN

Зарегистрирован: 24.01.03
Сообщения: 125

Добавлено: 05/12/03 в 07:04

Вот делаю такой скрипт, чтоб из файла 3.cgi в test.cgi вставлялся баннерный код:
#!/usr/bin/perl
print "Content-Type: text/html\n\n";
print "<H1>ТЕСТ 1</H1>\n";
require '3.cgi';
print "Content-Type: text/html\n\n";
print "<H1>ТЕСТ 2</H1>\n";
exit;
Получается, что он выводит ТЕСТ 1, потом баннер с куском текста Content-Type: text/html\ перед ним, а TECT 2 не показывает. Подскажите, в чём ошибка? Я в перле просто не разбираюсь ваабще.

K началу

YellSOFT + + +

Зарегистрирован: 05.12.03
Сообщения: 5

Добавлено: 05/12/03 в 08:23

Смотри два варианта:

Вариант 1

файл test.cgi

Код:

#!/usr/bin/perl -w

use strict;

print "Content-Type: text/html\n\n";
print "<h1>TEST ONE</h1><BR>\n";

require '3.cgi';

print "<BR><h1>TEST TWO</h1>\n";

файл 3.cgi

Код:

print "<IMG src='banner.gif' border='0'>\n";
1;

Вариант 2

Файл test.cgi и файл banner.htm с html кодом баннера.

файл test.cgi

Код:

#!/usr/bin/perl -w

use strict;

print "Content-Type: text/html\n\n";
print "<h1>TEST ONE</h1><BR>\n";

open (F, 'banner.htm');
foreach (<F>) { print; }
close (F);

print "<h1>TEST TWO</h1><BR>\n";

файл banner.htm

Код:

Вот. Второй вариант на мой взгляд предпочтительней...

K началу

Dragon

Зарегистрирован: 09.02.03
Сообщения: 160

Добавлено: 05/12/03 в 11:30

GAN писал:

print "Content-Type: text/html\n\n";

Для начала - вон ТА строка выдается один раз. Если не поможет - посмотрю дальше.

K началу

GAN

Зарегистрирован: 24.01.03
Сообщения: 125

Добавлено: 06/12/03 в 01:36

Спасибо огромное, вроде работает

K началу

Текстовая реклама в форме ответа
Заголовок и до четырех строчек текста
Длина текста до 350 символов
Купить рекламу в этом месте!

Внимание! В связи с устареванием топика эта страница была взята из кэша.

Спонсор раздела

Опросы