socket問題

fr222093

小弟初學 ~ 使用socket要去讀取遠端daytime

use strict;
use Socket;
use constant DEFAULT_ADDR => '127.0.0.1';
use constant PORT        => 13;
use constant IPPROTO_TCP => 6;

my $address = shift || DEFAULT_ADDR;
my $packed_addr = inet_aton ($address);
my $destination = sockaddr_in(PORT,$packed_addr);

socket(SOCK,PF_INET,SOCK_STREAM,IPPROTO_TCP) or die "無法建立 socket!";
connect(SOCK,$destination);
print <SOCK>;

執行./daytime 1.1.1.211 以後並無錯誤也無任何回傳值!!! 不知我是哪有問題 。 感謝

bikong0411

你这是客户端，服务端有吗

fr222093

回复 2# bikong0411


    這是書的範例~~ 原來server端也需要!! 難怪又不到值!!  感謝你回答!!

Crisewng

目测是网络编程 。我原来搞过跟你一样的错误 。