雙向客戶端服務器

Question

任何人都可以指引我在IO :: Socket :: INET中開發的雙向客戶端服務器腳本，發送和接收短信？ 我需要研究它的流程和工作。 TY。

Answer 1

這裏是上述問題的最簡單的解決方案：

服務器腳本

#!/usr/bin/perl 

use strict; 
use warnings; 
use IO::Socket::INET; 

my $socket; 
my $clientsocket; 
my $serverdata; 
my $clientdata; 

$socket = new IO::Socket::INET (
    LocalHost => '127.0.0.1', 
    LocalPort => '0155', 
    Proto => 'tcp', 
    Listen => 1, 
    Reuse => 1 
) or die "Oops: $! \n"; 
print "Waiting for the Client.\n"; 


$clientsocket = $socket->accept(); 

print "Connected from : ", $clientsocket->peerhost();  # Display messages 
print ", Port : ", $clientsocket->peerport(), "\n"; 

# Write some data to the client 
$serverdata = "This is the Server speaking :)\n"; 
print $clientsocket "$serverdata \n"; 

# read the data from the client 
$clientdata = <$clientsocket>; 
print "Message received from Client : $clientdata\n"; 

$socket->close(); 

客戶端腳本：

#!/usr/bin/perl 

use strict; 
use warnings; 
use IO::Socket::INET; 

my $socket; 
my $serverdata; 
my $clientdata; 

$socket = new IO::Socket::INET (
    PeerHost => '127.0.0.1', 
    PeerPort => '0155', 
    Proto => 'tcp', 
) or die "$!\n"; 

print "Connected to the Server.\n"; 

# read the message sent by server. 
$serverdata = <$socket>; 
print "Message from Server : $serverdata \n"; 

# Send some message to server. 
$clientdata = "This is the Client speaking :)"; 
print $socket "$clientdata \n"; 

$socket->close(); 

Answer 2

它就像任何其他文件句柄。

while (<$socket>) { # Receiving 
    print $socket $_; # Sending 
}