telnet的问题！！！

siyantianji

我telnet到服务器上，读取文件到本地，但是文件读不出来，不知为何？？？

1. #!/usr/bin/perl
   
2. use Net::Telnet ();
   
3. STDOUT->autoflush(1);
   
4.         my ($hostip,$filename,$hostname);
   
5.         $hostname="127.0.0.1";
   
6.         my($port, $username, $password);
   
7.         $port = "23";
   
8.         $username = "root";
   
9.         $password = "root";            
   
10. 
    
11.         my $s = Net::Telnet->new(Host=>$hostname,Port=>$port,Timeout=>120,Errmode=>"return");
    
12.         if(defined($s)){
    
13.                 $s->option_accept(Dont=>Net::Telnet::TELOPT_ECHO, Wont => Net::Telnet::TELOPT_ECHO);
    
14.                 $s->errmode("return");
    
15.                 $s->login($username, $password);
    
16.                 $s->autoflush(1);           
    
17.             $s->print("more /u06/lode/probe/kk/kk.ini");
    
18.             while(defined($s)) {
    
19.                     my $line;
    
20.                     $line = $s->getline();
    
21.                     print $line;
    
22.                   }
    
23.                 }               
    
24.                 $s->close;
    
25.                 sleep(10);

复制代码

各位看看是什么位置出错！！！

flw

先自己看看文档吧。
这种特殊应用，了解的人不多，先尝试着自己解决，不要对 BBS 抱太大的希望。

siyantianji

原因在于操作系统原因，在RH系统上这样是可以的，因为这个例子是在RH上运行成功的，但是现在换成CentOS，就不行了，登录是要用wait和print才行