使用IO ::插座:: INET接收和發送在消息單個提示

Question

我已經發現兩種類型的基於所述IO ::插座:: INET模塊，其接收並經由IP地址發送消息上網站程序。

接收郵件程序：

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:"; 
    } 
} 
}