VPF::заголовки при использовании CGI.pm

_AHTOH_

Дата 22.4.2004, 19:21 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Помогите в освоении CGI.pm

Есть скриптик:

#!/usr/bin/perl
use CGI;
use strict;
my $query = new CGI;

print $query->header( -type => 'text/html', -charset =>'koi8-r' ),
$query->start_html('Сообщение отправлено' ),
$query->center( '<br> Сообщение отправлено. Подождите 10 секунд.' ),
$query->end_html;

Если спасти результат выполнения этого скрипта в файл, а потом открыть этот файл в броузере, то там будет

Content-Type: text/html; charset=koi8-r

Сообщение отправлено. Подождите 10 секунд.

То есть, печатается заголовок HTML. Как этого избежать?
Заранее благодарен.

korob2001

Дата 22.4.2004, 23:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

Если я правельно понял, то это должно помочь:

Код


#!/usr/bin/perl
use CGI;
use strict;
my $query = new CGI;

# Заголовок выводим в STDOUT
print $query->header( -type => 'text/html', -charset =>'koi8-r' );

# Открываем файл и записываем в него сгенерированный HTML
open( FILE, "my_file.txt" ) or die $!;
  print FILE $query->start_html('Сообщение отправлено' ),
  $query->center( '<br> Сообщение отправлено. Подождите 10 секунд.' ),
  $query->end_html;
close( FILE ) or die $!;

Если нет, поясни подробнее что именно нужно.
Удачи.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »