First thing of note is that you are reading your entire logfile into an array, which is perfectly fine, but then you're doing a comparison to see if the array is numerically not equal to a null string. It appears to me you are trying to test for an empty file - then I'd suggest doing one of the following: 

if (@file != 0) {# @file in scalar context here - returns number of li
+nes in the array
   #your stuff here
};

[download]
or 
if ($#file < 0) {# $#file returns max index of array
   #your stuff here
};

[download]

Secondly, you can achieve a delay in program execution using Perl's sleep built-in function, much more readably and simply than a for loop that does nothing.

Finally, the reason that your script's output is not being displayed until after the delay loop, is output buffering. There is an excellent FAQ on this topic here. Update: this is the same link as chromatic++ gives above.

I hope this is of some use to you! Good luck.

..Guv

Update: ++tachyon for a neat, very Perlish solution below!

In reply to Re: Do-nothing loops by theguvnor
in thread Do-nothing loops by Wassercrats

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.