On 10/4/05, Jay Savage <[EMAIL PROTECTED]> wrote:
>
> > >
> > > I want this file not to grow more than 50KB.
> > > How can I go about it. I been stuck here.. this above script will not
> do
>
>
Thanks a lot for all that gyan. :)
Cheers,
Umesh
"Because it's up-side down".
"Why is that?"
"It makes replies harder to read."
"Why not?"
"Please don't top-post." - Sherm Pendley, Mac OS X Perl list
On 10/4/05, Stephen Kratzer <[EMAIL PROTECTED]> wrote:
> Chances are that the file size will never equal exactly 500 bytes. You cou
Chances are that the file size will never equal exactly 500 bytes. You could
use >= instead of eq, and it should work. Also, you don't have to close
STDERR before reopening it, and in cases where you want to do numeric
comparisons, use == instead of eq. Hope that helps a little. Also, it might
Hello List,
#!/usr/bin/perl
close(STDERR);
open(STDERR,">/tmp/test.log") or die " Can't do it!!";
for($i=0; $i <=30; $i++) {
print STDERR "print something in the file.\n";
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks)
= stat(STDERR);
if ( $size eq '500' )
