Select Code to Download

Select or download this

$logger->info("performing ssh to the swicth");
my $ssh = Net::OpenSSH->new($ip,user=>"$username",password=>"$password
+",master_opts=>[-o =>"StrictHostKeyChecking=no"]);
...

$logger->info("listing the current defined configuration of the switch
+ using cfgshow");
my($out,$err) = $ssh->capture2("cfgshow");

Select or download this

2015/07/25 23:01:48 Test1:pass cfgshow Defined configuration:
 cfg:   FC_DVT  MEZZI; MEZZI1
...
 zone:  MEZZI1  10:00:00:90:fa:2e:dd:9f
                10:00:00:90:fa:2e:dd:a0
                20:01:00:11:0d:34:57:00