ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : ‘ҐаЈҐ© ’®а®Ї®ў                       2:5020/400     17 Oct 2003  20:12:19
 To : Serguei Trouchelle
 Subject : Re: telnet.pl => windows
 -------------------------------------------------------------------------------- 
 

 
 "Serguei Trouchelle" <Serguei.Trouchelle@p1.f357.n550.z2.fidonet.org>
 сообщил/сообщила в новостях следующее:
 
 > $t->waitfor(Match => '/c:\\>');
 > $t->put(String => 'format c:/y' . $t->ors(),
 >         Errmode => 'return');
 
 То есть грубо говоря так?
 
 # cat telnet3.pl
 #!/usr/bin/perl
 use Net::Telnet;
 $username="username";
 $password="password";
 $hostname="192.168.0.1";
 $t = Net::Telnet->new(Timeout=>2);
 
 $t->open("$hostname");
 $t->login($username, $password);
 $t->waitfor(Match => '/c:\\>');
 
 @result=$t->put(String => 'dir' . $t->ors(),
                 Errmode => 'return');
 
 $t->close;
 
 print @result;
 #
 
 # ./telnet3.pl
 timed-out waiting for command prompt at ./telnet3.pl line 11
 #
 PS: мне понравилось про format :)
 --- ifmail v.2.15dev5
  * Origin: UNKNOWN (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Re: telnet.pl => windows   ‘ҐаЈҐ© ’®а®Ї®ў   17 Oct 2003 18:03:14   telnet.pl => windows   Serguei Trouchelle   17 Oct 2003 17:03:40   Re: telnet.pl => windows   ‘ҐаЈҐ© ’®а®Ї®ў   17 Oct 2003 20:12:19   telnet.pl => windows   Serguei Trouchelle   20 Oct 2003 13:59:56   Re: telnet.pl => windows   Stas Vlasov   17 Oct 2003 23:50:07   Re: telnet.pl => windows   Artem Chuprina   19 Oct 2003 12:14:14   Re: telnet.pl => windows   Stas Vlasov   20 Oct 2003 22:49:03