use strict; my $file="abc786"; while(1) { if (-s $file > 0) { open(my $in,"+<",$file) or die "$!"; print STDOUT <$in>; seek($in,0,0); truncate($in,0); } sleep 1; }
In reply to Win32::Daemon help by suhailck
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |