Olá galera, tenho uma dúvida que creio ser simples... Porém eu sou bem iniciante em PERL !
Criei o seguinte código em PERL:
#!/usr/bin/perl -w
use strict;
use Socket;
my $porta = 20000;
my $proto = getprotobyname('tcp');
socket(SERVER, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die "setsock: $!";
my $paddr = sockaddr_in($porta, INADDR_ANY);
bind(SERVER, $paddr) or die "bind: $!";
listen(SERVER, SOMAXCONN) or die "listen: $!";
print "Iniciando escuta na porta $porta\n";
my $client_addr;
while ($client_addr = accept(CLIENT, SERVER)){
my ($client_port, $client_ip) = sockaddr_in($client_addr);
my $client_ipnum = inet_ntoa($client_ip);
my $client_host = gethostbyaddr($client_ip, AF_INET);
print "Conexão cliente vinda de : $client_host", " [$client_ipnum]\n";
print CLIENT "Alô mundo! Você se conectou!\n:";
close CLIENT;
}
Esse código abre uma porta e quando você se conecta por um cliente, ele dá a mensagem "Alô Mundo! Você se conectou!"
Acontece que coloquei esse comando no cron como "/usr/bin/perl /home/user/script.pl" e agora ele tá aberto direto por mais que eu tenha tirado do cron. Alguém saberia me dizer como faço para fechá-lo ? Como faço para derrubar o bind que ele criou na porta 20000 ?
Pergunta
hara
Olá galera, tenho uma dúvida que creio ser simples... Porém eu sou bem iniciante em PERL !
Criei o seguinte código em PERL:
#!/usr/bin/perl -w use strict; use Socket; my $porta = 20000; my $proto = getprotobyname('tcp'); socket(SERVER, PF_INET, SOCK_STREAM, $proto) or die "socket: $!"; setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die "setsock: $!"; my $paddr = sockaddr_in($porta, INADDR_ANY); bind(SERVER, $paddr) or die "bind: $!"; listen(SERVER, SOMAXCONN) or die "listen: $!"; print "Iniciando escuta na porta $porta\n"; my $client_addr; while ($client_addr = accept(CLIENT, SERVER)){ my ($client_port, $client_ip) = sockaddr_in($client_addr); my $client_ipnum = inet_ntoa($client_ip); my $client_host = gethostbyaddr($client_ip, AF_INET); print "Conexão cliente vinda de : $client_host", " [$client_ipnum]\n"; print CLIENT "Alô mundo! Você se conectou!\n:"; close CLIENT; }Esse código abre uma porta e quando você se conecta por um cliente, ele dá a mensagem "Alô Mundo! Você se conectou!"
Acontece que coloquei esse comando no cron como "/usr/bin/perl /home/user/script.pl" e agora ele tá aberto direto por mais que eu tenha tirado do cron. Alguém saberia me dizer como faço para fechá-lo ? Como faço para derrubar o bind que ele criou na porta 20000 ?
Abraços e agradeço se puderem me ajudar
Fernando Hara
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.