in reply to Re^3: Creating thread to call Subroutines parallely
in thread Creating thread to call Subroutines parallely

Event though if the criteria is not matched i am sending a dummy text to the file" as below atleast this message should write into that file. At the time of error when i open the app_output file it remains blank. 
if ($limit == 0) {
    $msg = "Common-App##Windows ".$eventSource." Event Log - Event log
+ has not increased in size since last run";
    print $out_app $msg;
      }

[download]

Replies are listed 'Best First'.
Re^5: Creating thread to call Subroutines parallely
by BrowserUk (Patriarch) on Feb 21, 2013 at 15:58 UTC
    Event though if the criteria is not matched i am sending a dummy text to the file" as below atleast this message should write into that file.

    Hm. That covers teh situation where there are no new messages. What about where there are new messages, but none of them match your regexes?

    At the time of error when i open the app_output file it remains blank.

    An existing but empty file would not "fail to open" at line 444.

    But then your error message does not reflect the situation you are actually testing.

    If the file is empty, the open (inside File::Slurp::read_file() would succeed, but then the function would return no lines. Your code would detect the absence of any input and report it as an open failure.

    But you are still not supplying the full error message ($!)

    You better next time else I'm giving up on you.

    With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
    Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
    "Science is about questioning the status quo. Questioning authority".
    In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom