Help for this page

Select Code to Download


  1. or download this
    my $regex=qr/^Device(\s)+Configuration/;
    ...
    my $result = $functions{$regex}->($var2);
    
  2. or download this
    my $result = undef;
    for (keys %functions) {
    ...
        last;
      }
    }