perl 实现client

概述#! / 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  #! / 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 line\n " ;
print $socket $msg_out;

while  ( 1 )
{
    sleep( 1 ); } 总结

以上是内存溢出为你收集整理的perl 实现client全部内容，希望文章能够帮你解决perl 实现client所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。