Script /opt/OV/bin/OpC/agtinstall/inst.sh invoked by root at 02/25/11
14:36:48
<code>
or

<code>
Script /opt/OV/bin/OpC/agtinstall/inst.sh invoked by root at 02/25/11 14:36:48

##</code><code>##

open(INFILE,"install.log")|| die("File not found");

while($line = <INFILE>)

{
    if ($line =~ /((\d+)\/(\d+)\/(\d+))\Z/g)
    
    {
        $match = $&;
        
        $nextline = <INFILE>;
        
        
        $start="$match$nextline";

        if($start =~ /(\d+)\/(\d+)\/(\d+)\s+(\d+):(\d+)(\d+)/)
        {
            print $4,"\n";
        }
    } # end if  if
    
    elsif ($line =~ /invoked by root at ((\d+)\/(\d+)\/(\d+))\s+(\d+):(\d+):(\d+)\Z/)
    
    {
        print  $&;
    }