２ｃｈからRFC（STD）を作るプロジェクト

２ｃｈからRFC（STD） ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

236:名無しさん＠お腹いっぱい。
 02/06/21 04:08 
とりあえずパールのソケット間通信クライアント。サーバーサイドは知らん 
#tcp-client 
( $them, $port ) = @ARGV; 
$port = 2345 unless $port; 
$them = 'localhost' unless $them; 
$AF_INET = 2; 
$SOCK_STREAM = 1; 
$SIG{'INT'} = 'dokill'; 
sub dokill { 
    kill 9,$child if $child; 
} 
$sockaddr = 'S n a4 x8'; 
#chop($hostname = `変換`); 
($name,$aliases,$proto) = getprotobyname('tcp'); 
($name,$aliases,$port) = getservbyname($port,'tcp') 
    unless $port =~ /^\d+$/;; 
($name,$aliases,$type,$len,$thisaddr) = gethostbyname($hostname); 
($name,$aliases,$type,$len,$thataddr) = gethostbyname($them); 
###IPを構造体からアドレスにする 
@thisaddr = $thisaddr ; @thataddr = $thataddr ; 
foreach (@thisaddr) { 
@localip = unpack ('C4' , $_ ); 
print "localaddr = $localip[0] .$localip[1] .$localip[2] .$localip[3]\n"; 
} 
foreach (@thataddr) { 
@remoteip = unpack ('C4' , $_ ); 
print "$them = $remoteip[0] .$remoteip[1] .$remoteip[2] .$remoteip[3]\n"; 
} 
$this = pack($sockaddr, $AF_INET, 0, $thisaddr); 
$that = pack($sockaddr, $AF_INET, $port, $thataddr); 
if (socket(S, $AF_INET, $SOCK_STREAM, $proto)) {  
    print "socket ok\n"; 
} 
else { 
    die $!; 
} 
if (bind(S, $this)) { 
    print "bind  local :ok\n"; 
} 
else { 
    die $!; 
} 
if (connect(S,$that)) { 
    print "connect  $them :ok\n"; 
} 
else { 
    die $!; 
}

次ページ