Thank You Rob you have been a great help but work it out now
On Monday 10 Feb 2003 2:39 pm, Benjamin Jeeves wrote:
> On Monday 10 Feb 2003 11:57 am, Rob Dixon wrote:
>
> Hope you do not mind in helping me out but have try what you put below with
> know luck. This is what I have do and try many ways
>
> sub main_prog
> {
>
> my $counter = 0;
> my $counter1 = 0;
>
> $filepos = tell FILEIN;
>
> for(;;)
> {
> $filepos = tell FILEIN;
> build_db();
> $counter++;
> alert();
> $counter1++;
>
> print "$counter..$counter1\n";
> }
> sleep 50;
> seek $filein, 0, SEEK_CUR;
> }
>
> }
>
> sub build_db
> {
> seek FILEIN, 0, SEEK_SET;
>
> while ( <FILEIN> )
> {
> # seek FILEIN, 0, SEEK_SET;
> does the stuff I want it to. # As you can see try different ways
>
> }
> }
>
> But it still does not work can you maybe point out were I have gone wrong.
>
> > Benjamin Jeeves wrote:
> > > It still add record that it found on the first pass though the while
> > > loop to my database what I need is some way to mark my file to the
> > > point that it get to so it will not find a dupluted of the some
> > > record as the file grows. ant ideas on how I do that.
> >
> > It sounds as though you want to keep checking to see if there are
> > any records appended to the file? If that's the case then you need
> > a separate scalar variable to keep track of the place in the file
> > you've got to. Within your main loop, get the position with
> >
> > $filepos = tell FILEIN;
> >
> > then you can process the lines with
> >
> > build_db();
> >
> > wind back to where you were with
> >
> > seek FILEIN, $filepos, SEEK_SET;
> >
> > process them again with
> >
> > alert();
> >
> > then you can sleep and revalidate the end of file with
> >
> > sleep 50;
> > seek FILEIN, 0, SEEK_CUR;
> >
> > ..and go back to the top of the loop.
> >
> > HTH,
> >
> > Rob
--
Thank You
Benjamin Jeeves
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
