client.pl

一个简单的多线程的客户端,服务器端通信代码

use strict;
use Socket;
use Errno qw(EAGAIN);


my $addr = $ARGV[0] || '127.0.0.1';
my $port = $ARGV[1] || '3000';
my $dest = sockaddr_in($port, inet_aton($addr));
my $buf = undef;

socket(SOCK,PF_INET,SOCK_STREAM,6) or die "Can't create socket: $!";
connect(SOCK,$dest)                or die "Can't connect: $!";
select((select(SOCK), $| = 1)[0]);   

print "command-line:" ;
while(<STDIN>){
    chomp;  
    my $input = $_ ;  
    exit if ($input eq "quit");
    print SOCK $input, "\n";
    &client_get_session();
    print "command-line:" ;
}

close SOCK;

sub client_get_session()
{
    while (my $input= <SOCK>){
        last if ($input eq "qq\n" );
        chomp $input;
        print STDOUT $input, "\n";
        
    }
}