Select Code to Download

Select or download this

   my $get = "Starting";
   open(FH, "$pd_zvkk") || die ("Unable to open pd_zvkk log file: $pd_
+zvkk : !$ \n");
...
      printf STDERR ("String = $_ \n");
     }
   }

Select or download this

[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] My get = St
+arting
[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] String = Fr
+i Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Starting.
...
[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] String = Fr
+i Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Running the stored pr
+oc.
[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] String =
[Mon Nov 14 09:54:54 2005] [error] [client 10.142.204.242] String = PL
+/SQL procedure successfully completed.