}

}

> Hi there,

>  I wonder if anyone can help me with a small
> problem

> I need to be able to open a file line by line as
> the file is about 10,000 lines long by the time I
> need to run this script.

> what i need to be able to do (in pseudo Code) is

> Open file
>   read line to EOF
>   compair this line to user input
>     if TRUE then counter++
> close file
> output results

> simple eh!

> I DON'T want to do something like:

> open (FILEHANDLE, "$fileName");
> flock FILEHANDLE, 2;

> {
>   DO PROCESSING
> }
> close (FILEHANDLE);

> as this will take up TOO much memory and lock the
> file out for too long (as this is a log file)

}

}

> > Hi there,

> >  I wonder if anyone can help me with a small
> > problem

> > I need to be able to open a file line by line as
> > the file is about 10,000 lines long by the time I
> > need to run this script.

> > what i need to be able to do (in pseudo Code) is

> > Open file
> >   read line to EOF
> >   compair this line to user input
> >     if TRUE then counter++
> > close file
> > output results

> > simple eh!

> > I DON'T want to do something like:

> > open (FILEHANDLE, "$fileName");
> > flock FILEHANDLE, 2;

> > {
> >   DO PROCESSING
> > }
> > close (FILEHANDLE);

> > as this will take up TOO much memory and lock the
> > file out for too long (as this is a log file)

> Well you _are_ going to have to something *like* that.

> If you have already read the contents of the file into the array
> you can close the filehandle straight away :

> open (FILE,$filename) || die "Cant open $filename - $!\n";

> close FILE;

> {
>   # whatever
> }

> This is expensive in terms of memory for a large file.

> Or you can read from the file a line at a time :

> open (FILE,$filename) || die "Cant open $filename - $!\n";

> while (<FILE>)
> {
>   # whatever
> }

> close FILE

> This might be expensive if it keeps the file open too long.

> Thems are your choices - you will have to do one or the other and work
> around the drawbacks.

> /J\
> --

> <http://www.gellyfish.com>
> ** Uri Guttman - Have You CPANed Backward.pm Yet ? **

> > > I need to be able to open a file line by line as
> > > the file is about 10,000 lines long by the time I
> > > need to run this script.

> > while (<FILE>)
> > {
> >   # whatever
> > }

> Could you maybe duplicate the file (it is a log file so it shouldn't
> be THAT big) to a tmp directory then you would be without any problems
> when it comes to locking the file, then you could use the most
> efficient method of reading the file, not that I know the answer to
> THAT question as I want to find out myself..

> > > I need to be able to open a file line by line as
> > > the file is about 10,000 lines long by the time I
> > > need to run this script.

> > while (<FILE>)
> > {
> >   # whatever
> > }

> Could you maybe duplicate the file (it is a log file so it shouldn't
> be THAT big) to a tmp directory then you would be without any problems
> when it comes to locking the file, then you could use the most
> efficient method of reading the file, not that I know the answer to
> THAT question as I want to find out myself..

}

> Hello fellow learner
> If I was to compare a file to <STDIN> I would do something
> like:
> open(NAME, /home/filename); #open the file
> print "please enter input\n";
> $input=<STDIN>; #create scalar for STDIN
> chomp $input;
> while <NAME>;
> print $_; #the magic operator
> if ($input !eq $_){
> then
> print $input does not equal this line;
> }
> This is a rushed answer but it should not be too difficult
> to carry out a compare like this - the !eq is meant to mean
> "not equal to" I can't remember the syntax for this.

> open(NAME, /home/filename); #open the file

> print "please enter input\n";
> $input=<STDIN>; #create scalar for STDIN
> chomp $input;

> while <NAME>;

> print $_; #the magic operator

> if ($input !eq $_){

> then

> print $input does not equal this line;

> }