socket問題

fr222093

小弟初學，想把a電腦 ip 傳給 b電腦打印。出現錯誤『Use of uninitialized value $addr in print at ./2.pl line 23.』~~請高手指導，感謝。 。

A-PC
====================================================
#! /usr/bin/perl -w
use strict;
use IO::Socket;
my $socket = IO::Socket::INET->new(PeerAddr => '192.168.1.1' ,PeerPort => '2011',Proto => 'tcp')
or die "$!";
my $new_socket = $socket->accept();
host_ip($new_socket);

sub host_ip{
my $addr = `ifconfig eth0|grep inet`;
$addr =~ /(\d+\.\d+\.\d+\.\d+)/;
my $ip = $1;
print $ip;
}
close $new_socket;
====================================================

B-PC
====================================================
#! /usr/bin/perl -w
use strict;
use warnings;
use IO::Socket;
my $quit = 0;
$SIG{INT} = sub {$quit++};

my $socket = new IO::Socket::INET (
        LocalHost => '192.168.1.1',
        LocalPort => '2011',
        Proto => 'tcp',
        Listen => 1,
        Reuse => 1,
) || die ("无法创建socket：$!\n");
warn " wait prot..\n";
while (!$quit){
next unless my $session = $socket->accept();
my $ip = $session->peerhost;
warn "[$ip]\n";
my($addr);
$addr = <$session>;
print $addr;
close $session;
}
============================================

yakczh_cu

B-PC

1. use strict;
   
2. use warnings;
   
3. use IO::Socket;
   
4. use Thread;
   
5. 
   
6. my $quit = 0;
   
7. $SIG{INT} = sub {$quit++};
   
8. sub talk{
   
9.         my $session =shift;
   
10.         while(1){
    
11.                 my $line = <STDIN>;
    
12.                 if($line eq  'quit'){
    
13.                         print "Bye Bye/n";
    
14.                         close $session;
    
15.                 }else{
    
16.                         print $session ":".$line;
    
17.                 }
    
18.                 sleep(1);
    
19.         }
    
20. }
    
21. sub receive{
    
22. 
    
23.         my $session=shift;
    
24.         while(1){
    
25.         print $session "\r".$session->peerhost;
    
26. 
    
27.                 my $remote_pack_address=$session->recv(my $buffer,10,0);
    
28.                 print $buffer;
    
29.                 sleep(1);
    
30.         }
    
31. }
    
32. my $socket = new IO::Socket::INET (
    
33. LocalHost => '192.168.1.101',
    
34. LocalPort => '2011',
    
35. Proto => 'tcp',
    
36. Listen => 1,
    
37. Reuse => 1,
    
38. ) || die ("无法创建socket：$!\n");
    
39. warn " waiting for connection ..\n";
    
40. while (!$quit){
    
41.         next unless my $session = $socket->accept();
    
42.         my $ip = $session->peerhost;
    
43.         warn "[$ip] incoming! \n";
    
44.         my $thread2=Thread->new(\&talk,$session);
    
45.         my $thread1=Thread->new(\&receive,$session);
    
46.         $thread2->join();
    
47.         $thread1->join();  
    
48. 
    
49. }

复制代码

A-PC

1. #! /us/bin/perl -w
   
2. use strict;
   
3. use IO::Socket;
   
4. use Data::Dumper;
   
5. use Thread;
   
6. 
   
7. sub receive{
   
8. 
   
9.         my $session=shift;
   
10.         while(1){
    
11.                 print $session "\r".$session->peerhost;# my $answer=<$session>;
    
12.                 my $buffer;
    
13.                 my $remote_pack_address=$session->recv($buffer,10,0);
    
14.                 print $buffer;
    
15.                 sleep(1);
    
16.         }
    
17. }
    
18. 
    
19. sub talk{
    
20.         my $session =shift;
    
21.         while(1){
    
22.                 my $line = <STDIN>;
    
23.                 if($line eq  'quit'){
    
24.                         print "Bye Bye/n";
    
25.                         close $session;
    
26.                 }else{
    
27.                         print $session ":".$line;
    
28.                 }
    
29.                 sleep(1);
    
30.         }
    
31. }
    
32. 
    
33. sub host_ip{
    
34. 
    
35.         my $socket = shift;
    
36.         my $thread1=Thread->new(\&talk,$socket);
    
37.         my $thread2=Thread->new(\&receive,$socket);
    
38.         $thread1->join();
    
39.         $thread2->join();  
    
40. 
    
41. }
    
42. 
    
43. my $new_socket = IO::Socket::INET->new(Reuse => 1,Proto => 'tcp',PeerAddr => '192.168.1.101' ,PeerPort => '2011')
    
44. or die "$!";  
    
45. host_ip($new_socket);
    

复制代码

fr222093

回复 2# yakczh_cu
感謝大哥的回覆~~小弟請教一下 一定要用手動輸入ip 才能傳嗎? 不能用正則匹配完以後在傳送嗎? 我失敗的文件是送過去的值未初始化。幫忙小弟 感謝。

   

墨迹哥

必须要手动输入IP才能传，因为不知道目标地址没法传送的啊。。
Socket是连接双方的纽带。。

墨迹哥

给个比较好的方法你，你可以先在本地建设个环境，安装NC，然后监听。
再写个发SOCKET的脚本，把数据发射出来，NC就能看到你自己的数据了。

fr222093

回复 2# yakczh_cu
感謝大哥的回覆~~小弟請教一下 一定要用手動輸入ip 才能傳嗎? 不能用正則匹配完以後在傳送嗎? 我失敗的文件是送過去的值未初始化。幫忙小弟 感謝。