Форум сетевых администраторов - Помогите написать на Perl

cooper
Участник
Средний рейтинг: 5 | Оценок: 1

"cgi файле содержимое другого" - исходный код? всмысле не выполнить скрипт, а просто показать его содержимое? Тогда так:

code:

#!/usr/bin/perl
print "Content-Type: text/html\n\n"; 
# хотя после долгих дебатов на perldev советуют использовать CGI.pm, если Вы знаете что он есть на вашем сервере, то уберите коментарий.
#use CGI qw(header);
#print header;

# выводим первый заголовок
print "<html><body><H1>TECT ONE </H1><BR>\n";

# выводим содержимое файла 3.cgi
my $File = '3.cgi'; # сюда вставить имя выводимого файла.
open(FILE, "<$File") || die "Невозможно открыть файл '$File': $! ($^E)\n";
  foreach (<FILE>)
 {
    print; 
 }
close(FILE);
# выводим второй заголовок
print "<H1>TECT TWO </H1><BR></body></html>\n";
# конец

Если надо вывести результат исполнения скрипта, то лучше всего сделать так:
(это самый просто для понимания вариант. можно конечно запустить дочерний процесс, и рабоать с ним, но так имхо проще.)

содержимое файла 3.cgi

code:

  sub banner_show
{
  # здесь код, который получает текст баннера
}
return 1; # включаемые файлы должны возвращать истину

содержимое конечного файла test.cgi

code:

  #!/usr/bin/perl
print "Content-Type: text/html\n\n"; 
# хотя после долгих дебатов на perldev советуют использовать CGI.pm, если Вы знаете что он есть на вашем сервере, то уберите коментарий.
[CODE]
#use CGI qw(header);
#print header;

# выводим первый заголовок
print "<html><body><H1>TECT ONE </H1><BR>\n";

# подключаем 3.cgi
require "3.cgi";
# выполняем процедуру banner_show (мы определили её в 3.cgi оператором sub banner_show)
&banner_show();
# выводим второй заголовок
print "<H1>TECT TWO </H1><BR></body></html>\n";
# всё!

Пояснения по отдельному запросу ;]

__________________
my $Question = 2 x $BE || !(2 x $BE);
print STDOUT $Question;

Сообщить модератору об этом сообщении | Предупреждение | IP: определен

17-12-2003 06:49