Собрать воедино...

[Millenium]

Вопрос конечно будет очень просто (для вас), но я только начинаю рботать с перл..) так что заранее прошу прощения...

Итак, вопрос такой:
У меня есть несколько подпрограмм(в одном файле-скрипте), но мне их нужно собрать вместе в одном окне, т.е. окно браузера будет рабиваться на фреймы. Так вот, как мне например поставить одну из подпрограмм в нижнем фрейме?


Знаю, непонятно.... но постарайтесь ответить... спасибо..

[mike]

Разбей файл с подпрограммами на несколько и вызывай каждый скрипт отдельно.

[Croaker]

или открывай файл в разных фреймах с разными параметрами.

[Millenium]

mike  Так а как вызывать отдельно? Я вообще то это и спрашивал...!
Croaker Так и говорил про фреймы...

[Croaker]

Код: [Выделить]


---------------------------------------- file.html --------------------------------


   
   



----------------------------------- script.cgi ---------------------------------

#!/usr/bin/perl -w

use CGI;

my $cgi = new CGI;

print $cgi->header();

if($cgi->param(\'p\') == 1)
{
    print \'Это один фрейм\';
}
elsif($cgi->param(\'p\') == 2)
{
    print \'Это другой фрейм\';
}


[mike]

Был у тебя скрипт с двумя подпрограммами:

Код: [Выделить]


sub sub1 {
         print "Frame1"
}

sub sub2 {
         print "Frame2"
}


А вот разные скрипты:

Код: [Выделить]


---------------------------------------- file.html --------------------------------


   
   



----------------------------------- script1.cgi ---------------------------------

#!/usr/bin/perl -w

use CGI;
my $cgi = new CGI;
print $cgi->header();
print \'Frame1\';

----------------------------------- script2.cgi ---------------------------------
#!/usr/bin/perl -w

use CGI;
my $cgi = new CGI;
print $cgi->header();
print \'Frame2\';


[Millenium]

Спасибо, попробую...!