Hello mkhayat, and welcome to the Monastery!

the issue is once I reach to while (<DIAG>) it hang for some reason.

The nested loops in the MAIN code have the following structure:

while (<DIAG>){
    while (1) {
        open LOGFILE, ">>$app_root_dir/logs/detailedlog.log";
        while ($line = <DIAG>) {

            if ($line =~ /is higher than 5 seconds/) {
                if ($clock == 0) {
                    $clock = 60;
                    # call "print LOGFILE" then "system(...)", 4 times
                }
                $clock --;
                sleep(1);
            }    
            close LOGFILE;        
        }
        sleep(65);
    }
}

[download]

There are at least 3 problems here:

  1. There are two while (<DIAG>) loops, one nested inside the other.
  2. There is no last statement inside the while (1) loop, so that loop will never terminate.
  3. As GotToBTru observed: Within the inner while ($line = <DIAG>) loop, you close the filehandle LOGFILE after the first iteration, so on all subsequent iterations the print LOGFILE ... statements have nowhere to write to.

In addition, you still have calls to sleep although GotToBTru advised that they are not needed when using the File::Tail module.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

In reply to Re^3: trying to implement file tail with regular expression by Athanasius
in thread trying to implement file tail with regular expression by mkhayat

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.