Help for this page

Select Code to Download


  1. or download this
    my %INPUT_DATA = (
  'DEVICE1_NAME' => {
...
foreach my $current_port ( sort keys %{$INPUT_DATA{$device_name}} ) {
    my @CURRENT_PORT_STATUS = print( "show xdsl operational\-data line
+ $current_port detail");
}
  2. or download this
        next unless ref $current_port eq ""; # skip if $current port is NO
+T a scalar.