|
Ol@' Galera LLL
Qual a forma de diminuir esta rotina de impress�o?
sub index_arq {
open(ARQ1, "$bloco1");
open(ARQ2, "$bloco2"); open(ARQ3, "$bloco3"); open(ARQ3_1, "$bloco3_1"); open(ARQ3_2, "$bloco3_2"); open(ARQdefault, "$default"); open(ARQ4, "$bloco4"); @conteudo1 = <ARQ1>;
@conteudo2 = <ARQ2>; @conteudo3 = <ARQ3>; @conteudo3_1 = <ARQ3_1>; @conteudo3_2 = <ARQ3_2>; @conteudodefault = <ARQdefault>; @conteudo4 = <ARQ4>; close(ARQ1);
close(ARQ2); close(ARQ3); close(ARQ3_1); close(ARQ3_2); close(ARQdefault); close(ARQ4); print <<EOT1;
Content-type: text/html\n\n @conteudo1 @conteudo2 @conteudo3 $pensamento @conteudo3_1 $pobreza @conteudo3_2 @conteudodefault @conteudo4 EOT1 } []'s, T+
Jacques Miranda de Oliveira
NEUx! - eSt�dIO De cOMuNiCa��O dIgItAl [EMAIL PROTECTED] http://www.neux.com.br
|
Title: -=eSt�DiO NEUx! - wEBDESiGn & mUlTIm�DiA
