Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
use Data::Dumper;
...
s/^\s+|\s+$//g for grep {defined $_} ( $ipaddress, $prefix, $interface
+, $device, $location);

print Dumper ( $ipaddress, $prefix, $interface, $device, $location);
  2. or download this
    $VAR1 = 'no_ws';
$VAR2 = 'some_ws';
$VAR3 = undef;
$VAR4 = 'lotsa  ws';
$VAR5 = undef;