From: Orhan Sumer (sumero@sumero.com)
Date: Tue 27 Jun 2006 - 07:06:52 GMT
Tirnak'la da denedim o zaman $HOST degeri string olarak $ARGV[0]'yi aliyor
yani,
$HOST = '$ARGV[0]';
print $HOST;
#./calis.pl
$ARGV[0]
#
-----Original Message-----
From: linux-programlama-bounces@liste.linux.org.tr
[mailto:linux-programlama-bounces@liste.linux.org.tr]On Behalf Of Serkan
Coban
Sent: Tuesday, June 27, 2006 9:49 AM
To: linux-programlama@liste.linux.org.tr
Subject: Re: [Linux-programlama] Perl - Net::Telnet::Cisco deger girilmesi
$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