From: Serkan Coban (mesaj.listeleri@gmail.com)
Date: Tue 27 Jun 2006 - 06:48:55 GMT
$ARGV[0] degiskenini tek tirnak icinde yazip denermisiniz. '$ARGV[0]'
On 6/27/06, Orhan Sumer <sumero@sumero.com> 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
>
>
>
_______________________________________________
Linux-programlama mailing list
Linux-programlama@liste.linux.org.tr
http://liste.linux.org.tr/mailman/listinfo/linux-programlama