Vamos ver se estou bem em perl

[Anonymous]

• Fazendo login
   --------------------------------

Lembrando que você tem que fazer uma página com um
formulário apontando para essa página no método GET e com
os campos "login" e "senha".
A extrutura dos dados é a seguinte: abra um arquivo chamado "login.txt" com os seguintes dados:
usuario|senha
usuario|senha
...

Vamos começar:

#!/usr/bin/perl

print "Content-type:text/html\n\n";

use CGI;
$cgi = new CGI;
$login=$cgi->param("login");
$senha=$cgi->param("senha");

open(USERS,"login.txt");
@users=;
close(USERS);

$val="0"; foreach(@users){ chop;
($user,$pass) = split(/\|/,$_);

if($login eq $user && $senha eq $pass){

print qq~ Ola $login ~;

$val .=1;
last;
}
}

if($val eq "0"){ print "Nenhum user encontrado"; } 

• Captando dados enviados pelo método POST
   --------------------------------------------------

Use o código abaixo para captar dados enviador por
um formulário no metodo POST:

#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";

###### CAPTA DADOS POST #########
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$form{$name} = $value; }
#########################

print qq~
$form{'nome do campo'};
~; 

• Query String com barra
   ------------------------------------------------

#Com o código abaixo, você poderia enviar dados e/ou abrir
uma página do seguinte modo:
 https://ssl.rapidshare.com/cgi-bin/collectorszone.cgi

Este código não é meu, mas eu editei e estou colocando aqui:

#!/usr/bin/perl

print "Content-type: text/html\n\n";
# perl e header

$query = ".".$ENV{'PATH_INFO'};
# aqui pegamos o que vem de pois de index.cgi

print "Sua query: $query";
#aqui imprimimos

Aceito comentários, críticas construtivas, sugestões e links para baixar
algum compilador ou algo onde eu possa executar os códigos em perl.

  Mas vou logo avisando, isso é tudo que sei em perl, agora só vou me dedicar
em JAVA + MySql e um pouco de BatchScript.


[]s