Perl 双路客户端

oldmonst

1. use IO::Socket;
   
2. 
   
3. $socket = IO::Socket::INET->new
   
4. (
   
5.     PeerAddr => 'server.com',
   
6.     PeerPort => 1247,
   
7.     Proto    => "tcp",
   
8.     Type     => SOCK_STREAM
   
9. ) or die "Could not create client.\n";
   
10. 
    
11. unless (defined($child_pid = fork())) {die "Can not fork.\n"};
    
12. 
    
13. if ($child_pid) {
    
14.     while ($line = <>) {
    
15.         print $socket $line;
    
16.     }
    
17. } else {
    
18.     while($line = <$socket>) {
    
19.         print "Read this from server: $line";
    
20.     }
    
21. }

复制代码