perl socket如何传替3个参数给server端的3个变量

如题，以下程序只传了一个,麻烦帮改改

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use IO::Socket;
   
5. 
   
6. my $sock = new IO::Socket::INET(
   
7.     LocalAddr => '192.168.1.240',
   
8.     LocalPort => 7777,
   
9.     Proto     => 'tcp',
   
10.     Listen    => 5
    
11. );
    
12. die "Could not create socket: $!\n" unless $sock;
    
13. 
    
14. my $new_sock = $sock->accept();
    
15. my @result;
    
16. my $i = 0;
    
17. while (<$new_sock>) {
    
18. print $i;
    
19.     $result[$i] = $_;
    
20.     $i++;
    
21. }
    
22. close($new_sock);
    
23. &Test_Sockte( $result[0], $result[1], $result[2] );
    
24. 
    
25. sub Test_Sockte {
    
26.     my ( $host, $type, $values ) = @_;
    
27.     print "$host $type  $values\n";
    
28. }

复制代码

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. use IO::Socket;
   
6. 
   
7. my $send_sock = new IO::Socket::INET(
   
8.     PeerAddr => '192.168.1.240',
   
9.     PeerPort => 7777,
   
10.     Proto    => 'tcp'
    
11. );
    
12. die "$!" unless $send_sock;
    
13. 
    
14. print $send_sock("192.168.1.240","linux","100");

复制代码

作者: mitmax   发布时间: 2010-10-08

作者: 珞水的大叔   发布时间: 2010-10-08