Ir para conteúdo
Fórum Script Brasil

netsoul

Membros
  • Total de itens

    6
  • Registro em

  • Última visita

Sobre netsoul

netsoul's Achievements

0

Reputação

  1. Leia sobre Sockets. Use Google para saber cómo funciona cliente-servidor. Faça testes. Quando você tiver alguma dúvida sobre seu script, posta aqui, que eu vou te ajudar.
  2. Uma idéia podería ser atualizálo desde seu computador, através de um cliente HTTP ou utilizando Sockets.
  3. netsoul

    Enviar e-mails com perl

    Olá, Marcelouco. Eu fiz este script pra te dar uma idéia. Você ainda tem que testar ele. Terá que faze-lo numa BD fictiça. #!/usr/bin/perl use strict; use DBI; use Net::SMTP; my $smtp = Net::SMTP-> new('smtp.host.com'); #Nome do servidor SMTP $smtp->auth("user","senha"); #Autenticação para o SMTP my $dbh = DBI->connect("dsn", "usuario", "senha"); #Autenticação para a Base de Dados my $sth; for(0..9999){ #Assumindo que o limite dos registros é 9999. $sth = $dbh->prepare("SELECT Nome_User, Email_User, EnvMail FROM tabela WHERE EnvMail = 'N' LIMIT $_, 300"); $sth->execute; while (@registro = $sth->fetchrow_array){ $smtp->to($registro[1]); $smtp->data(); $smtp->datasend("To:$registro[1] "); $smtp->datasend("From: remitente"); $smtp->datasend("mensagem"); $smtp->quit; # Email enviado com sucesso $sth = $dbh->do("UPDATE SET tabela SET EnvMail = 'S' WHERE Email_User = $registro[1]"); } sleep 3600; } Abraços!
  4. E ai, ?. Bom, isso não é um CGI pra ser executado directamente no navegador. Mas sim parte de um software OpenSource psychostats pra criar estatisticas de jogos com Half-life e Counter-Strike. Isso sem falar dos modulos e submodulos como PS::CmdLine que não existem no Cpan. Então, a coisa é instalar psychostats. :lol:
  5. Olá william.wmd. beleza?. É possivel que não tenha um indicador CGI ao começo do código: print "content-type: text/html \n\n"; E no final: exit(1); Lembrando também que é importante as permisões de execução do seu script: netsoul@intel:~$ chmod 775 stats.pl Abraços. :lol:
  6. netsoul

    Socket para ler XML

    Olá amigo, beleza?. Bom, não preciso usar sockets mesmo: :rolleyes: #!/usr/bin/perl use strict; use warnings; use XML::Simple; use LWP::Simple; my $xml = XMLin(my $conteudo = get("http://xmlfiles.com/examples/note.xml")); print "$xml->{to}\n"; Como pode-se perceber, usei a etiqueta "to". :-D
×
×
  • Criar Novo...