On Jul 29, [EMAIL PROTECTED] said:
>>You are opening a file for appending and reading. But you forgot (or
>>didn't know) that you start out at the *end* of the file.
I didn't thanks for the tip
>open (DONE,"+>>$done") or die "Cannot open file: $!";
>
> flock (DONE, 1);
>>You should really be using Fnctl.pm's file locking
>>constants instead of numbers here.
>>Anyway, here is where you should say:
>> seek DONE, 0, 0;
>>to rewind to the beginning of the file.
Thanks, I read the perldocs and all the referring docs and understand
now what I am really trying to do
>> foreach (<DONE>){
>> Don't do that. Use a while loop instead, PLEASE.
Fixed this and all the others throughout my script and it works
beautifully now, thanks for the help.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
