Help for this page

Select Code to Download


  1. or download this
    # /^set\szone\s("([^"]*)"|id\s\d+\s"([^"]*)")/
#              ^       ^            ^     ^
  2. or download this
            if ($line =~ /^set\szone\s("[^"]*")|id\s\d+\s("[^"]*")/)
        {
            my $zone = $1 // $2;
            print "Config line=> $lineCount; Value=> $line; zone=> $zo
+ne\n";
        }