From: Serkan Coban (mesaj.listeleri@gmail.com)
Date: Tue 27 Jun 2006 - 06:58:03 GMT
Pardon bi onceki mailimde tek tirnak demistim yanlislik olmus cift tirnak
olacak "ARGV[0]".
On 5/2/06, Atif CEYLAN <atifceylan@gmail.com> wrote:
>
> 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
>
_______________________________________________
Linux-programlama mailing list
Linux-programlama@liste.linux.org.tr
http://liste.linux.org.tr/mailman/listinfo/linux-programlama