Um script CGI pode ser tão simples ou complexo quanto você precisar. Pode ser em Perl, Java, Python ou qualquer linguagem de programação. Em sua essência, um aplicativo CGI simplesmente aceita uma solicitação via HTTP (normalmente um navegador da web) e retorna HTML. Vejamos um Perl simples Olá Mundo Script CGI e divida-o nas formas mais simples.

 #! / usr / bin / perl
imprima "Tipo de conteúdo: texto / html \ n \ n";
print <




Um CGI Perl Simples

Olá Mundo


HTML
Saída; 

Se você executar o programa na linha de comando, verá que ele faz exatamente o que você esperaria. Primeiro, imprime o Tipo de conteúdo linha e, em seguida, imprime o HTML bruto. Para vê-lo em ação em um navegador da web, você precisará copiar ou fazer upload do script para o servidor da web e verifique se as permissões estão definidas corretamente (chmod 755 nos sistemas * nix). Depois de configurá-lo corretamente, você poderá navegar até ele e ver a página exibida ao vivo no seu servidor.

A linha-chave é a primeira declaração de impressão:

 imprima "Tipo de conteúdo: texto / html \ n \ n"; 

Isso informa ao navegador que o documento que vem depois dos dois novas linhas vai ser HTML. Vocês devo envie um cabeçalho para que o navegador saiba qual o tipo de documento a seguir e você deve incluir uma linha em branco entre o cabeçalho e o documento real.

Depois que o cabeçalho é enviado, basta enviar o próprio documento HTML. No exemplo acima, estamos usando um documento aqui para simplificar a impressão de uma grande parte do texto sem formatação. Obviamente, isso não é realmente diferente de ter um documento HTML simples no seu servidor. O poder real de usar uma linguagem de programação como Perl para criar seu HTML surge quando você adiciona alguma programação Perl sofisticada.

No próximo exemplo, vamos fazer parte disso script de hora e data e adicione-o à sua página da web.

 #! / usr / bin / perl
@months = qw (jan fev mar abr mai jun jul ago set out nov dez);
@weekDays = qw (Dom Seg Ter Qua Qui Sex Sab Dom);
($ segundo, $ minuto, $ hora, $ diaDeMês, $ mês, $ anoOffset, $ diaDe semana, $ dia de Ano, $ luz de dia) = localtime ();
$ ano = 1900 + $ anoOffset;
$ theTime = "$ weekDays [$ dayOfWeek] $ meses [$ mês] $ dayOfMonth, $ year";
imprima "Tipo de conteúdo: texto / html \ n \ n";
print <




Um CGI Perl Simples

$ theTime


HTML
Saída; 

Esse novo script CGI inserirá a data atual na página toda vez que o script for chamado. Em outras palavras, torna-se um dinâmico documento que muda conforme a data muda, em vez de estático documento.