Help for this page

Select Code to Download


  1. or download this
                    if ( $RESULT eq "" ) {
                        print DEBUG1 "Line is \"" . $line ."\"\n";
...
                        push @blocklines, $line;
                        next;
                }
  2. or download this
    2018_11_20-11_15_58;C;;yes;;;;
2018_11_20-11_15_58;C;yes;yes;yes;yes;yes;yes;yes;yes;yes;yes;yes;yes;
+yes;yes;yes;yes;yes;yes;;;;;yes;yes;yes;yes;yes;yes;yes;;;;;;;;;;;
...
2018_11_20-11_15_58;C;yes;yes;yes;;
2018_11_20-11_44_51;C;;yes;;;;
2018_11_20-11_44_51;C;yes;yes;yes;yes;yes;yes;yes;yes;yes;yes;yes;yes;
+yes;yes;yes;yes;yes;yes;;;;;yes;yes;yes;yes;yes;yes;yes;;;;;;;;;;;
  3. or download this
    $VAR1 = [
          'algorithmPosition',
...
          'puidType',
          'unregSvcInd'
        ];