From: Atif CEYLAN (atifceylan@gmail.com)
Date: Tue 02 May 2006 - 06:50:51 GMT
Orhan Sumer wrote:
>Selamlar,
>
>Asagidaki gibi bir script ile Cisco yonlendiriciler uzerinden bazi bilgiler
>alacagim, bunu agimizdaki birkac yonlendiriciden almak istiyorum o yuzden
>yazdigim scriptin disardan arguman alacak sekilde yazdim ve problem burda
>basladi.
>Goruceginiz gibi eger $HOST'a ip adresini script icinde girersem hicbir
>problem cikartmiyor ve calisiyor, fakat $ARGV[0] degerini $HOST'a atadigimda
>yonlendiriciye telnet cekmiyor, hicbir islem yapmiyor.
>
>Yardimlarini bekliyorum
>
>
>use Net::Telnet::Cisco;
>
>#my $HOST = '10.10.10.150';
>my $HOST = $ARGV[0];
>use constant USER => 'XXXXXXX';
>use constant PSWD => 'YYYYYYY';
>use constant ENPD => 'ZZZZZZZZ';
>use constant CMND => 'sh ver';
>use constant IDLE => 0;
>use constant SEEN_ORIGINATE => 1;
>
>$| = 1;
>my $debug = 0;
>my $session;
>if (scalar(@ARGV) ne 1)
> {
> print("Usage: $0 <router_ip_address> \n");
> exit(-1);
> }
>
>$session = Net::Telnet::Cisco->new
> (
> Host => $HOST,
> Errmode => "return",
> ) or do{ print_format( 0, 0 ); exit( 0 );
>};
>$session->login( USER, PSWD) or do{ print_format( 0, 0 ); exit( 0 );
>};
>my @output = $session->cmd( CMND );
>$session->close;
>print @output;
>
>Orhan
>
>
>
>
>------------------------------------------------------------------------
>
>_______________________________________________
>Linux-programlama mailing list
>Linux-programlama@liste.linux.org.tr
>http://liste.linux.org.tr/mailman/listinfo/linux-programlama
>
>
$ARGV[0] ile içeri değer girip girmediğini veya giriyorsa doğru girip girmediğini eğer doğru giriyorsa $HOST değişkenine doğru atandığını kontrol ettinizmi?
print($ARGV[0]); yazdığınzda değer geliyormu?
print($HOST); yazdığınzda değer geliyormu?
_______________________________________________
Linux-programlama mailing list
Linux-programlama@liste.linux.org.tr
http://liste.linux.org.tr/mailman/listinfo/linux-programlama