perl 实现client

发布时间：2020-12-15 23:49:23 所属栏目：大数据来源：网络整理

导读：#! / usr / bin / perl use?IO::Socket; my?$host? = ? " 127.0.0.1 " ; my?$port? = ? 5000 ; my?$socket? = ?IO::Socket::INET - new ( " $host:$port " )? or ?die? " create?socket?error?$@ " ; my?$msg_out? = ? " 1234567890 " ; print?$socket?$msg_

#! / usr / bin / perl

use?IO::Socket;

my?$host? = ? " 127.0.0.1 " ;
my?$port? = ? 5000 ;

my?$socket? = ?IO::Socket::INET -> new ( " $host:$port " )? or ?die? " create?socket?error?$@ " ;
my?$msg_out? = ? " 1234567890 " ;
print?$socket?$msg_out;
print? " now?send?over,?go?to?sleep

n " ;
sleep( 5 );
print? " 5?second?gone

send?another?linen " ;
print?$socket?$msg_out;

while ?( 1 )
{
????sleep( 1 ); }

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!