GhP

#!/usr/bin/perl print "Content-type: text/html\n\n"; $msg = "essa é uma mensagem normal"; $novamsg = crypt($msg, mmssgg); print "Mensagemn: $msg<br>Mensagem criptografada: $novamsg"; espero ter ajudado abraços

por favor, poste 1 vez so grato

o que seria esse time:hires? qual a diferença do time() normal? abraçõs

tanto faz perl do windows com o unix é os mesmo comandos e não tem um tuto simples é so saber comandos basicos ai vai alguns #!/usr/bin/perl # linha de localização do perl print "Content-type: text/html\n\n"; # mostra pro intepretador que o script é em texto ou html comentarios são começados com "#" exemplo: # comentario OBS: tota linha começada com # menos a 1º linha (#!/usr/bin/perl) é considerada comentario para imprimir algo na tela use o print exemplo: print "ola!!!"; qualquer duvida, entre em contato abraços

olhe esse tudo que fiz de login e senha, pode ser util esta nesse endereço (no meu bligg ) www.binhorox.blig.com.br abraços

o forbiden é por que o diretorio é protegido famoso erro 403 para resolver isso retire os htaccess da pasta abraços

#!/usr/bin/perl $card = $ENV{'QUERY_STRING'}; print "Content-type: text/html\n\n"; print "Vendo o cartão de numero: $card"; é so um exemplo arrume de acordo com sua necessidade

$_ = <>; # não seio que faz não, numca tinha visto print "Achei!" if (/oi/); # se tiver oi em algo, imprimi achei!!! abraços

use o bloco de notas é o melhor editor perl que já vi!!!!! fui

isso se não me engano é o perl gtk ou algo do tipo, não lembro o nome direito abraços

arquivos .cgi e.pll são perl ou cgi pegue o activeperl e instale, ok? abraços

mesmo esquema! abraços

Instale o activeperl depois o omihttpd ou apache e pronto

precisando, posta ae falou

não sei cara a unica coisa que eu achei que faltava era as aspas no open open(INFO, $arquivo); o certo seria open(INFO, "$arquivo"); abraços

veja #!/usr/bin/perl print "Content-type: text/html\n\n"; $arquivo = "/home/knoppix/apag.txt"; open(INFO, "$arquivo") or die print("não existe o arquivo $arquivo"); @linhas = <INFO>; close(INFO); print "@linhas"; abraços

hmmm o codigo esta correto tente print "@linhas"; e troque os ' ' do $arquivo por " " ok abraços

Ai, fiz um forum demo para vocês verem como funciona mais ou menos INDEX.CGI #!/usr/bin/perl require "config.cgi"; print "Content-type: text/html\n\n"; use CGI; $cgi = new CGI; $acao = $cgi->param("acao"); print qualquer~ <title>$site_titulo</title> <center><b>$site_nome</b><br>[<a href="index.cgi">Inicial</a>] [<a href="?acao=new">Novo tópico</a>]</center><br><br> ~; if($acao eq "new"){ print qualquer~ <form method="POST"> <span style="text-transform: uppercase">Seu nome:<br> <input type="text" name="nome" size="20"><br> Seu e-mail:<br><input type="text" name="email" size="20"><br> Titulo do tópico:<br><input type="text" name="assunto" size="20"><br> Mensagem:<br><input type="text" name="msg" size="20"><br> <input type="submit" value="Postar"> </span> <input type="hidden" name="acao" value="posta"> </form> ~; } if($acao eq "posta"){ $nome = $cgi->param("nome"); $email = $cgi->param("email"); $assunto = $cgi->param("assunto"); $msg = $cgi->param("msg"); $id=time(); open(TOP,">>msgs.dat"); print TOP "$id|$nome|$email|$assunto\n"; close(TOP); open(TOPI,">>msgs/$id.dat"); print TOPI "$id|$nome|$email|$assunto|$msg\n"; close(TOPI); print qualquer~ Seu tópico foi postado com sucesso! ~; } if($acao eq ""){ open(TOP,"msgs.dat"); @post=reverse<TOP>; close(TOP); foreach(@post){ chop; ($id,$nome,$email,$assunto) = split(/\|/,$_); open(TOPI,"msgs/$id.dat"); @msg=<TOPI>; close(TOPI); $total=scalar(@msg); if($total ne "0") { $total = $total-1; } print "Assunto: <a href=\"?acao=post&id=$id\">$assunto</a><br>Por: <a href=\"mailto:$email\">$nome</a> - Respostas: $total<br>"; } } if($acao eq "post"){ $id = $cgi->param("id"); print "<a href=\"?acao=responde&id=$id\">Responder</a><br><br>"; if(-e "msgs/$id.dat"){ open(TOP,"msgs/$id.dat"); @post=<TOP>; close(TOP); foreach(@post){ chop; ($id,$nome,$email,$assunto,$msg) = split(/\|/,$_); print "Assunto: <a href=\"?acao=post&id=$id\">$assunto</a> - Por: <a href=\"mailto:$email\">$nome</a><br>$msg<hr>"; } }else{ print "Desculpe, não há topicos com essa ID!"; } } if($acao eq "responde"){ $id = $cgi->param("id"); print qualquer~ <form method="POST"> <span style="text-transform: uppercase">Seu nome:<br> <input type="text" name="nome" size="20"><br> Seu e-mail:<br><input type="text" name="email" size="20"><br> Titulo do tópico:<br><input type="text" name="assunto" size="20" value="RE:"><br> Mensagem:<br><input type="text" name="msg" size="20"><br> <input type="submit" value="Responder"> </span> <input type="hidden" name="acao" value="posta_res"> <input type="hidden" name="id" value="$id"> </form> ~; } if($acao eq "posta_res"){ $nome = $cgi->param("nome"); $email = $cgi->param("email"); $assunto = $cgi->param("assunto"); $msg = $cgi->param("msg"); $id = $cgi->param("id"); open(TOPI,">>msgs/$id.dat"); print TOPI "$id|$nome|$email|$assunto|$msg\n"; close(TOPI); print qualquer~ O tópico foi respondido com sucesso! ~; } CONFIG.CGI $site_nome = "Forum"; $site_titulo = "Site.Com"; $site_url = "http://www.site.com/forum"; Apos feito isso, crie um arquivo de texto chamado "msgs.dat" e salva ele vazio e depois crie uma pasta chamada "msgs" que é onde ser aamarzenada as mensagens espero que sirva para alguma coisa falou

sou mais criar um forum proprio odeio coisas feitas eu já fiz uns 4 ou 5 forum se quiser libero o code de um simples para vocês estudarem

supondo que você tem um bd em texto dessa forma Gabriel|gabriel|1234 Adriano|login|senha123 os dados ficariam da seguinte forma NOME | LOGIN | SENHA ai usamos esse script #!/usr/bin/perl print "Content-type: text/html\n\n"; use CGI; $cgi = new CGI; $login = $cgi->param("login"); $senha = $cgi->param("senha"); if($senha ne "" && $login ne ""){ open(DADOS,"usuarios.bd"); @dados=<DADOS>; close(DADOS); $val = "0"; foreach (@dados); chomp; ($nome,$user,$pass) = split(/\|/,$_); if($login eq $user && $senha eq $pass){ print qualquer~ Olá <b>$nome</b>. ~; $val +="1"; last; } } if($val eq "0"){ print "Login ou senha invalidos"; } }else{ print qualquer~ <form method="post"> Login: <input type="text" name="login"><br> Senha: <input type="password" name="senha"><br> <input type="submit" Value="Logar"> </form> ~; } Testa ai o code falou

muito boa exmplicação mais o correto serio CGI/PERL e não somente PERL ou CGI! abraços