[tutorial] socket em perl - cliente
Página 1 de 1
[tutorial] socket em perl - cliente
continuando o tutorial anterior q agente fez um servidor, agora vamos fazer o cliente veja o codigo do nosso servidor
vamos aproveitar o codigo ate a parte new(), ao invez da gente passar LocalAddr agente passa PeerAddr, LocalPort e PeerPort, protocolo e o mesmo, e tiramos o limite de conexao colocamos no Timeout q e o tempo q ele fica aguardado a conexao
ja ta pronto a parte cliente ^^, so enviar os dados com $fts->send()
para digitar os dados e enviar direto basta criar um loop e atribuir a uma variavel a entrada de dados depois enviar a variavel
bom galera e isso ^^
by hacker fts315
- Código:
#!/usr/bin/perl
use IO::Socket::INET;
$fts = IO::Socket::INET->new(LocalAddr=>"127.0.0.1",LocalPort=>315,Proto=>"tcp",Listen=>2);
$hack = $fts->accept();
while(1)
{
$hack->recv($lol,1000);
print $lol;
}
vamos aproveitar o codigo ate a parte new(), ao invez da gente passar LocalAddr agente passa PeerAddr, LocalPort e PeerPort, protocolo e o mesmo, e tiramos o limite de conexao colocamos no Timeout q e o tempo q ele fica aguardado a conexao
- Código:
#!/usr/bin/perl
use IO::Socket::INET;
$fts = IO::Socket::INET->new(PeerAddr=>"127.0.0.1",PeerPort=>315,Proto=>"tcp",Timeout=>10);
ja ta pronto a parte cliente ^^, so enviar os dados com $fts->send()
- Código:
#!/usr/bin/perl
use IO::Socket::INET;
$fts = IO::Socket::INET->new(PeerAddr=>"127.0.0.1",PeerPort=>315,Proto=>"tcp",Timeout=>10);
$fts->send("fts");
para digitar os dados e enviar direto basta criar um loop e atribuir a uma variavel a entrada de dados depois enviar a variavel
- Código:
#!/usr/bin/perl
use IO::Socket::INET;
$fts = IO::Socket::INET->new(PeerAddr=>"127.0.0.1",PeerPort=>315,Proto=>"tcp",Timeout=>10);
while(1)
{
$hack = <stdin>;
$fts->send($hack);
}
bom galera e isso ^^
by hacker fts315
Tópicos semelhantes
» [tutorial] socket em perl - servidor
» [tutorial] Primeiro passos em perl
» [tutorial] hash no perl
» [tutorial] struct em perl
» [tutorial] fork em perl
» [tutorial] Primeiro passos em perl
» [tutorial] hash no perl
» [tutorial] struct em perl
» [tutorial] fork em perl
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos