Este tutorial tem como finalidade auxiliar os iniciantes em programação Perl/CGI.

Após a criação de 2 Programação ( um sobre formulário HTML e um sobre Script Perl/CGI ), recebi inúmeros emails com a mesma dúvida, "como finalizar o Script" ( enviar via FTP e configurar detalhes do Servidor ).

Nota rápida ...
Não sou programador experiente ( nem avançado e nem intermediário ), sou apenas um iniciante que estou aprendendo conforme as minhas necessidades diárias, espero que você faça o mesmo ...
Se alguém de vocês estiverem precisarem de uma ajuda / auxílio sobre este tutorial, basta me localizar através da internet. Se sua solução estiver ao meu alcance, garanto que irei lhe ajudar ...

Pré-requisitos:
É extremamente importante que o leitor tenha algum tipo de conhecimento em lógica linguagem de programação e conceitos básicos de internet tais como HTTP e FTP.

Programas utilizados:
- Programação HTML ( HomeSite 4.5 )
- Programação Perl ( HomeSite 4.5 )
- Servidor WebHost ( Linux – CL4.0 )
- Navegador Web ( Inte. Explorer )
- Cliente para FTP ( WS_FTP PRO6 )
- Editoração Texto ( MS - Word 97 )

Informações úteis - Atenção !!!
- Fonte "Verdana", estará referindo-se a comentários.
- Fonte "Courier New - 10", estará referindo-se aos códigos de programação.
- As cores serviram para auxiliar o entendimento ( algumas pessoas dizem que piora ).
- O Itálico nos códigos indica que são conteúdo variável ( podem mudar ).
- O Negrito será aplicado para demonstrar blocos/etapas importantes ao sistema.

Contato via Internet Formulário de Contato Via Internet Nome: E-Mail: Mensagem ... WebMaster EMota - UIN: 2731255 -

Aqui está o código que será utilizando no formulário, o resto apresentado é apenas ilustração.

Aqui não tem nada para explicar, apenas que o código abaixo é um exemplo de código utilizado para a exibição de uma página de resposta para um formulário.
Neste caso, chamamos o arquivo de esmperl.htm .

Nota importante: o arquivo do formulário chama esmperl.html a extensão .HTML é diferente da .HTM
Sua finalidade é a mesma, mais sua vantagem é poder criar dois arquivos com o mesmo nome, só !!!
Na linguagem Perl/CGI, os arquivos podem ter extensão .PL ou .CGI ... entendeu ?!

Contato via Internet Formulário de Contato Via Internet Seu formulário foi enviado com sucesso ! Outras Informações Estaremos entrando em contato dentro de no máximo 48 horas. WebMaster EMota - UIN: 2731255 -

A linguagem Perl é baseada na C e não é necessário compilar o Script, mesmo assim, existe um compilador chamado Perl 2 EXE, mais particularmente não o conheço.

Quebra de Linha ( ; )
No termino da linha de programação, é necessário utilizar o ; ( ponto-e-vírgula como quebra de linha ).

Indicador ( ! )
O Script Perl necessita ser informado da origem do seu interpretador, onde geralmente tem como endereço os seguintes caminhos abaixo:
/usr/bin/perl ou /bin/perl
Esses caminhos, podem variar conforme seu Servidor e Administrador.
Caso você não saiba qual é o caminho, entre em contato com o Administrador/Suporte do seu WebHost.
Onde deve ser definido na primeira linha do Script Perl da seguinte forma:
#!/usr/bin/perl

Comentar ( # )
O Comentar é útil ao programador, onde você pode ir desenvolvendo seu programa em Perl e comentar suas funções. Ele é utilizado para inserir comentários junto do código de programação, onde esses linhas "Comentadas" não serão lidas quando o Script for rodado ( executado ).
Modo de utilização do # ( Comentar )
# Aqui se inicia o Script
##### Seu autor sou eu ...
## Se quiser copiá-lo, favor me enviar uns US$ 5.000,00 pelo correio :-)
Obs.: não a limite de Comentar ( # ) num script e nem numa linha, você pode usar diversos na mesma linha ou apenas um # , a finalidade é a mesma ... as pessoas usam vários apenas para melhorar o visual.
O Comentar pode ser usado no final da linha de programação, mais eu não aconselho, mais útil é usar ele acima ou abaixo.

Dica: Ao usar um Script pronto e configurá-lo para seu site, uma boa dica é duplicar a linha que você irá mudar, onde na original, você coloca o # antes, apenas para não perder a fonte original.

Variáveis ( $ @ )
Como toda as boas linguagens de programação, o Perl também contém "variáveis", onde se define um valor a eles e esse valor é mostrado toda vez que essa variável for chamada.
As variáveis do Perl são iniciadas com o caracter: $ ( cifrão ), ela deve ser apresentada da seguinte forma:
$nome_da_var = "conteúdo texto"; ## Valor em forma de texto
$nome_da_var = 9999; ## Valor em forma de número

Explicando:
$ - Define uma variável
nome_da_var – Nome que essa variável irá conter ( sobre seus critérios eu não sei exatamente, mais tive problemas com variável denominadas com acentos, caracteres especiais e números )
= - Indica que $nome_da_var será igual ao valor definido posteriormente
"conteúdo" – indica conteúdo texto, tudo que tiver entre " " ( aspas ), será o valor texto da variável
9999 – números utilizados sem aspas será interpretado como números Reais

As variáveis podem também aparecerem com a inicial @ ( arroba ) no lugar de $, mais infelizmente não poderei explicar corretamente a variável @ pois não conheço bem suas diferenças, sei algo ...
@nome_da_var = alguma_ação – onde essa variável irá receber todos o valor dessa ação.

Dando uma resumida FEIA, ela praticamente comporta um conteúdo maior, onde @ suporta diversas $ .

Função ( sub & )
As funções são muito úteis, pois você pode criar um bloco de comandos onde toda vez que for chamado, ele irá executar todo o bloco. Digamos assim, "para colocar ordem na casa", você usa ele. Assim, você pode controlar melhor os erros e saber o que será executado tal momento, não precisando programar na ordem correta dos processos.

A função é criada assim:

sub nome_da_fun {
# ...
# Comandos da Função fun
# ...
}

Para executar a função, basta chamá-la assim:

&nome_da_fun;

Existe uma forma de criar variáveis de função, mais isso fica para depois, pois ainda não conheço as muito bem, então é melhor não mencionar para não complicar.

Comando SE ( if )
Se isso é igual aquilo então faça isso! Legal isso né?!

O Comando if é utilizado para determinar regras, podendo se definido assim:

if ($var01 eq $var02) { &fun; } # Se $var01 é igual a $var02 então executa &fun .
if ($var01 ne $var02) { &fun; } # Se $var01 é diferente de $var02 então executa &fun .

Onde você pode agregar mais regras assim:
if (($var01 eq $var02) || ($var02 ne $var03)) { &fun; } # Se $var01 é igual a $var02 ou ( || ) $var02 é diferente de $ver03, então executa &fun .

Onde temos:
eq – eqüivale, igual a ... ( = )
ne – negativo, diferente ... ( != )
> - maior que ...
< - menor que ...
|| - ou ( caso um ou caso outro passe, então executa )
&& - e ( caso um e caso outro passe, então executa )
elsif – se não, caso contrário ... ( else if )

Exemplo:

if ((($var001 eq $var002) && ($var003 ne $var002)) || ($var001 ne $var003)) {
&funcao_passo;
}
elsif {
&funcao_nao_passo;
}

Se $var001 igual a $var002 e $var003 diferente de $var002, ou $var001 diferente de $var003, então executa &funcao_passo, senão ( caso contrário ), executa &funcao_não_passo .

---

Topo ^

Transferindo o Arquivo via FTP

Agora que já temos os três arquivos:
- esmperl.html ( página do formulário HTML )
- esmperl.htm ( página de resposta do formulário )
- esmperl.cgi ( Script para interpretador o formulário )

Precisamos agora colocar tudo isso para funcionar ...
Primeiro, precisamos saber se seu Servidor de WebHost suporta Perl/CGI, se suportar, seu diretório de arquivos irá conter uma pasta ( diretório ), chamado: CGI-BIN ( ao algo muito similar ).

O Script você irá colocá-lo na pasta /CGI-BIN e os demais você colocará no diretório RAIZ o / .
Isso de colocar no diretório RAIZ e no CGI-BIN não precisa ser exatamente assim, pode ser variada:

Exemplo de estrutura de diretório:
/index.html
/CONTATO/esmperl.html
/CONTATO/esmperl.htm
/CGI-BIN/FORM/esmperl.cgi

O que importa é que seu Script precisa estar dentro da subdiretório CGI-BIN e seu formulário e página de resposta, "preferencialmente", precisam estar localizados fora desse diretório, isso é mais pela segurança.

O que muitos tem problemas na transferência do Script é que ele precisa de "cuidados" especiais, onde não poder ser simplesmente transferido.

O FTP atualmente tem duas opções de envio, o método ASCII e o BINário.
Onde os arquivos comuns, tais como Imagens, textos e tudo mais, precisa ser transferido em método Binário ( pois são arquivos binários ), já o Script, é uma arquivo ASCII ( não sei o significado dessa sigla ), e se não basta-se essa frescura, ele ainda precisa que editemos as suas permissões ( aqui rola o grilo ).

Permissões ...
Os arquivos podem conter as seguintes permissões:
READ/Leitura ( 4 ) – WRITE/Escrita ( 2 ) – EXECUTE/Execução ( 1 )
Elas podem ser somadas e com isso você pode controlar sua segurança e função.

Mais as coisas não param por ai, você precisa definir essas permissões para cada categoria de acesso, mais antes de entrar em pânico com categorias, saiba que existem apenas 3 ... vamos ler ?

OWNER/Dono – GROUP/Grupo –OTHER/Outros
Sendo assim, você transferiu o arquivo para o Servidor, Correto ? então o servidor irá definir que você é o OWNER/Dono daquele arquivo, entendeu ?!
Seu Grupo, para falar a verdade, será todos os outros clientes do Servidor que você utilizar.
E ou outros, são todos os outros mesmo, desde desconhecidos até convidados do sistema ( Povão Geral ).

Para definir as permissões, basta utilizar o comando CHMOD.
Vamos a alguns exemplos:

Arquivos	Owner	Group	Other	CHMOD	Resultado
esmperl.cgi	7	5	5	755	Owner ( ler/gravar/executar ) os demais ( ler/executar )
arq_de_log.txt	6	6	6	666	Todos ( ler/gravar )
informacao.dat	4	4	4	444	Todos ( ler )

Sendo, leitura 4, escrita 2 e execução 1, basta ir somando para saber a definição, entendeu ?!
Ler + Gravar ( 4 + 2 ) = 6 | Ler + Executar ( 4 + 1 ) = 5 | Gravar + Executar ( 2 + 1 ) = 3
Ler ( 4 ) = 4 | Gravar ( 2 ) = 2 | Executar ( 1 ) = 1 ( lembre: como executar algo que não se pode ler ? )

---

Vejamos agora umas imagens que podem melhoras o entendimento da transferência.



Na figura acima, o script é chamado de padrao.cgi
Note a existência do diretório cgi-bin no sistema remoto.
Note também na barra inferior, as opções para tipo de envio ( ASCII e Binary ), onde ASCII está ativo.

---

Após a transferência, resta apenas configurar o CHMOD ...
Para a configuração CHMOD, basta selecionar o arquivo desejado, clicar com o botão direito do mouse em cima dele e escolher a opção CHMOD.

Veja agora um Exemplo de permissão 755 ( Owner ler/gravar/executar e demais ler/executar )



Logo abaixo, temos uma exemplo de CHMOD 666 ( Todos ler/gravar )



Note que existem um comentário na caixa de diálogo ...
These are usually only applicable on UINX hosts.

Quer dizer mais ou menos assim ...
Isto é usando apenas para usuários de hosts UNIX.
Geralmente você estará usando um Host ( WebHost ) Linux, que por sua vez é compatível com UNIX.

Pronto !!!
Caso você tenha alguma dúvida, atenção, pode entrar em contato, isso não mata e ajuda !!!
Finalização do Tutorial ESMPerl v1.00 ... será que consigo criar até a versão 10.00 ?