leandro,
n�o entendi direito o que voc� quer, mas se for o que o adriano mencionou,
fa�a assim:
#!/usr/bin/perl
print "content-type: text/html\n\n";
if ($ENV{'QUERY_STRING'}) {
&principal if ($ENV{'QUERY_STRING'} eq "principal");
&menu if ($ENV{'QUERY_STRING'} eq "menu");
} else { &frameset; }
sub frameset {
print <<EOF;
<html><head><title>frames</title></head>
<frameset cols="50%,50%">
<frame name="menu" src="script.pl?menu">
<frame name="principal" src="script.pl?principal">
</frameset>
</html>
EOF
}
sub principal {
print <<EOF;
<html><head><title>principal</title></head><body>
principal
</body></html>
EOF
}
sub menu {
print <<EOF;
<html><head><title>menu</title></head><body>
menu
</body></html>
EOF
}
abra�os,
_______________________
francisco lopes
uin: 17364815
email: [EMAIL PROTECTED]
-----Mensagem Original-----
De: Leandro Sousa de Carvalho <[EMAIL PROTECTED]>
Para: <[EMAIL PROTECTED]>
Enviada em: Ter�a-feira, 12 de Setembro de 2000 10:08
Assunto: [perl] perl X frames.
> Algu�m poderia dzer-me se h� a possibilidade
> de eu p�r no meu script Perl fames acessando
> uma su.
>
> Um abra�o!
>
> http://www.mrweb.com.br/perl/
> =======================================
> >>No site da lista, voce tera tudo sobre PERL,
> >>LINUX, PHP, ASP e informacoes, cadastramento
> >>e descadastramento da Lista.
> =======================================
http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================
