- or download this
my @intf_list = ("xe-4/0/1", "xe-2/2/1");
foreach my $myint (@intf_list) {
...
print "mu pic is $pic[0]\n";
print "my port is $port[0]\n";
- or download this
show chassis fpc pic-status 4
Slot 4 Online MPC4E 3D 2CGE+8XGE
...
PIC 1 Online 1X100GE CFP
PIC 2 Online 4x10GE SFPP
PIC 3 Online 1X100GE CFP
- or download this
$rh->cmd("show chassis fpc pic-status $fpc[0]");
my $output = $rh->get_response;
my @outputlist = join s/(^\s+|\s+$)//g, $output;