18 replies to this topic

[legenlegenlegen]

Galera estou a procura de um script parecido com o que tem no link abaixo, se alguem souber fazer pelo menos que mostre o IP, agradeço. Pois estou começando a mexer com essa liguagem. Obrigado.

LINK DO EXEMPLO QUE PROCURO



Obrigado dúvida esclarecida.

Edição feita por: legenlegenlegen, 31/01/2005, 20:04.

[jgcl]

Resultado completo...

#!/usr/bin/perl

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

$addr = $ENV{'REMOTE_ADDR'}; #pega ip
$host = $ENV{'REMOTE_HOST'}; #pega host
if (($host eq $addr) || ($host eq '')) { $host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr; } 
print qq~
Seu host é: $host<p>
Seu ip é: $addr
~;

[legenlegenlegen]

Valeu galera!
Mais uma dúvida, como disse estou començando...

Quero instalar o ActivePerl-5.8.0.805 em meu micro, abro e avanço tudo certinho quando aparece uma barra e começa a carregar a instalação, ele para derrepente. Nem se quer instala.
Alguem poderia me ajudar?

Obrigado dúvida esclarecida.

Edição feita por: legenlegenlegen, 03/02/2005, 20:39.

[legenlegenlegen]

A configuração de seu sistema são compativeis com as configurações mínimas do programa? Em qual tela o script apresenta erros? No inicio na leitura do arquivo ou já na cópia dos arquivos de instalação?

Até +

As configurações de meu sistema são compativeis, meu S.O é Windows XP Professional Service Pack 2 (esse meu sistema apresenta algum BUG para poder instalar?). Quando aparece a barra para carregar os arquivos de instalação ele já para, e vai direto aquela tela.
O que você me aconselharia fazer para eu poder rodar Perl em meu micro o que instalo? Tem algum programa mais fácil ou alternativo para eu rodar arquivos Perl?

Obrigado, aguardo retorno.

[jgcl]

Olha cara, se ta dano pau antes de carregar os arkivos p instalação, então creio que seja o arquivo que veio zicado....tente pegar dinovo. Agora caso ainda não dê certo, a segunda opção de distribuição binária do perl que eu recomendo é o IndigoPerl que possui versões com Perl 5.6 + Apache 1.3, Perl 5.8 + Apache 2.0 + PHP 4.2 e Perl 5.8.3 + Apache 2.0 + PHP 4.3

Até.

Eu indicaria o Apache2 Triad.

Vem com apache 2, perl 5.8, php 5, phyton, asp, servidor de ftp, email, sendmail, webmail, tcl, mySQL...

Ou seja, pacotão completo pra deixar seu pc como um servidor mesmo.

http://apache2triad.sourceforge.net

[jgcl]

Olha cara, se ta dano pau antes de carregar os arkivos p instalação, então creio que seja o arquivo que veio zicado....tente pegar dinovo. Agora caso ainda não dê certo, a segunda opção de distribuição binária do perl que eu recomendo é o IndigoPerl que possui versões com Perl 5.6 + Apache 1.3,        Perl 5.8 + Apache 2.0 + PHP 4.2 e    Perl 5.8.3 + Apache 2.0 +  PHP 4.3

Até.

Eu indicaria o Apache2 Triad.

Vem com apache 2, perl 5.8, php 5, phyton, asp, servidor de ftp, email, sendmail, webmail, tcl, mySQL...

Ou seja, pacotão completo pra deixar seu pc como um servidor mesmo.

http://apache2triad.sourceforge.net

Bom eu prefiro o IndigoPerl pq o cara vai ter a possibilidade de escolher o pacote q ele vai usar né. Q adianta, phyton, php, asp, tcl se ele for usar só Perl e Apache.

Fora q o IndigoPerl possui um instalador de mods, tipo o ppm do activeperl q tbm é excelente.

O Apache 2 Triad deixa você escolher o que você quer... na instalação você seleciona o que você quer.

Além disso ele também instala o ppm do perl, o ppm do phyton e outros.

Esqueci de citar que ele instala uma especie de SSL (página segura para o seu site).

flw

[legenlegenlegen]

Galera o programa que eu estava tentando instalar estava normal, porque eu baixei as duas versões dele, e nenhuma rodava apresentava o mesmo erro.

ActivePerl 5.6.1.635
ActivePerl 5.8.0.805

Eu já tinha cansado de ficar tentando instalar e nada... então resolvi fuçar meu HD e achei esse programa: appserv-win32-2.4.0, rodei ele funcionou tudo certinho Perl, My SQL, PHP, porém não queria tudo isso, pois não ia usar só testar scripts (estou começando a mexer com Perl). Então resolvi instalar o Xitami e fiquei fuçando nele... até que agora estou conseguindo rodar o Perl normalmente, Sendmail. Tá show de bola com menos de 2 MB rodo tudo tranquilo.
Valeu pela força galera.

Mesmo assim tenho mais uma dúvida ( essa deve ser simples ), me passaram os scripts de ver o IP e o HOST ai em cima nos tópicos, gostaria de saber, um script, se eu quiser fazer logs dos Ips que acessarem meu site em um txt. Ex.: ip.txt
Achei esse exmplo na internet deem uma olhada, se alguem souber como faz por favor pode me passar.

Obrigado, dúvida esclarecida.

Edição feita por: legenlegenlegen, 03/02/2005, 20:36.

[jgcl]

Dica:
pra fazer a hora, dia, minutos... ficarem com duas casas decimais sempre não precisa fazer esse monte de if's... pode usar um comando do C no Perl:

usando o sprintf:

$hr = sprintf("%2.2d",$hr);
$min = sprintf("%2.2d",$min);
$seg = sprintf("%2.2d",$seg);
$dia = sprintf("%2.2d",$dia);
$mes = sprintf("%2.2d",$mes);

fica ai a dica

flw

[legenlegenlegen]

Valeu ai Whitesnake pelo script, e jgcl pela dica.