#!/usr/bin/perl
my $get = "Starting";
open(FH, "/home/cuthbe/programs/perlweb/PCAMWebStatus/log/pd_zvkk.log") || die ("Unable to open pd_zvkk log file : !$ \n");
printf ("My get = $get \n");
while(<FH>) {
  chomp();
  #next if ($_ !~ /$get/);
  if($_ =~ m/$get/) {
  printf ("String found: \"$_\" : \n");
  }

$ perl test.pl
My get = Starting
String found: "Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Starting." :
(cuthbe@ferrari)-(10:27 AM Mon Nov 14)-(cgi-bin)
$


##</code><code>##

   open(FH, "$pd_zvkk") || die ("Unable to open pd_zvkk log file: $pd_zvkk : !$ \n");
   printf STDERR ("My get = $get \n");
   while(<FH>) {
     chomp();
     #next if ($_ !~ /$get/);
     if(m/$get/) {
     printf STDERR ("String found: \"$_\" : \n");
     }
   }
<code>
Then i get this in the apache error log.<br>
<code>
[Mon Nov 14 10:28:16 2005] [error] [client 10.142.204.242] My get = Starting
[Mon Nov 14 10:28:16 2005] [error] [client 10.142.204.242] String found: "Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Starting." :
[Mon Nov 14 10:28:16 2005] [error] [client 10.142.204.242] My get =
[Mon Nov 14 10:28:16 2005] [error] [client 10.142.204.242] String found: "Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Starting." :
[Mon Nov 14 10:28:16 2005] [error] [client 10.142.204.242] String found: "Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Removing old clientacc files." :
[Mon Nov 14 10:28:16 2005] [error] [client 10.142.204.242] String found: "Fri Aug 26 05:56:01 BST 2005  INFO: PD/ZVKK Load: Running the stored proc." :
[Mon Nov 14 10:28:16 2005] [error] [client 10.142.204.242] String found: "" :
[Mon Nov 14 10:28:16 2005] [error] [client 10.142.204.242] String found: "PL/SQL procedure successfully completed." :
[Mon Nov 14 10:28:16 2005] [error] [client 10.142.204.242] String found: "" :
[Mon Nov 14 10:28:16 2005] [error] [client 10.142.204.242] String found: "could not open /dev/kbd to get keyboard type US keyboard assumed" :