IO :: Socket :: INETを使用して単一のプロンプトでメッセージを送受信する

Question

IPアドレスを使用してメッセージを送受信するIO :: Socket :: INETモジュールに基づいて、2つのタイプのプログラムがWebサイトに見つかりました。

メッセージ受信プログラム：

use IO::Socket::INET; 
my $text; 
$MySocket=new IO::Socket::INET->new (LocalPort=>1234,Proto=>'udp'); 
while(1) 
{ 
    $MySocket->recv($text,128); 
    $hostip=$MySocket->peerhost(); 
    if($text ne '') 
    { 
     print "\nReceived message from $hostip: $text \n"; 
     print "Command Output:\n"; 
     #system("$text"); 
     print "\n"; 
    } 
    else 
    { 
     print "Client has exited!"; exit 1; 
    } 
} 

送信メッセージ：

use IO::Socket::INET; 
#Enter Destination IP Message 
print "Please Enter the destination IP: \n"; 
$DestinationIP = <STDIN>; 
chomp $DestinationIP; 

#Enter message to sent to Server 
print "Please Enter your message: \n"; 
$MySocket=new IO::Socket::INET-> new(PeerPort=>1234,Proto=>1234,Proto=>'udp',PeerAddr=>$DestinationIP); 
#$MySocket->send($msg); 

while($msg=<STDIN>) 
{ 
    chomp $msg; 
    if($msg ne '') 
    { 
     print "\n Sending $msg"; 
     if($MySocket->send($msg)) 
     { 
      print "done \n"; 
      print "\nPlease Enter another message:"; 
     } 
    } 
} 

そして、私の質問は/ハンドルシングルMS-DOSプロンプトで、これらのプログラムをマージする方法です。例えばのために

：

`Receiving and sending message in Single Prompt.` 

心からの謝罪、私は意味せずに任意の仮想的な疑問を投げかけています。

Answer 1

だから、これはまっすぐに取得するために次の行23へのコメントとライン26

use strict; 
use warnings; 
use IO::Socket::INET; 
my @Destination; 
my $text; 
my $Receive_Socket=new IO::Socket::INET->new (LocalPort=>1234,Proto=>'udp'); 
while(1) 
{ 
$Receive_Socket->recv($text,128); 
my $hostip=$Receive_Socket->peerhost(); 
if($text ne '') 
{ 
    print "\nReceived message from $hostip: $text \n"; 
    print "Command Output:\n"; 
    #system("$text"); 
    print "\n"; 

} 
else 
{ 
    print "Client has exited!"; exit 1; 
} 
push @Destination, $hostip; # Push the IP Received to where you will send it 
} 
my $DestinationIP = $Destination[0]; # Here we assign the original $hostip to $DestinationIP 
chomp $DestinationIP; 

print "Please Enter your message: \n"; 
my $Send_Socket=new IO::Socket::INET-> new(PeerPort=>1234,Proto=>1234,Proto=>'udp',PeerAddr=>$DestinationIP); 
while(my $msg=<STDIN>) 
{ 
chomp $msg; 
if($msg ne '') 
{ 
    print "\n Sending $msg"; 
    if($Send_Socket->send($msg)) 
    { 
     print "done \n"; 
     print "\nPlease Enter another message:"; 
    } 
} 
}