Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > заголовки при использовании CGI.pm

Автор: _AHTOH_ 22.4.2004, 19:21

Помогите в освоении 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

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

Код


#!/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 $!;

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