[DAL]

I have a html page that looks to a file that contains a sentence of info. The page has worked for me when I put END at the end of this txt file but I found out I cant use this as Im appending to the file later on. Heres my script that worked...

open (POSTINFO,"<GeneralBoard.log");
while ($BoardDetails ne "END")
{

$BoardDetails=<POSTINFO>;
print $BoardDetails;

}

close (POSTINFO);

and the txt file format
DAL : Message board title : Date : Time
DAL1 : Message board Title : Date : Time
...
...
(...ect)
END

Ive had to replace it with this;

open (POSTINFO,"<GeneralBoard.log");
while (<>)
{

$BoardDetails=<POSTINFO>;
print $BoardDetails;

}continue{
close ARGV if eof;
}
close (POSTINFO);

and the txt file format
DAL : Message board title : Date : Time
DAL1 : Message board Title : Date : Time
...
...
(...ect)


----------------
But I keep getting either server errors or the information contained within the txt file doesnt show. Why cant it just read the file until there is nothing more to read. Ive never had a problem with this with any other language but perl obvously does things a little different than Im used to.

Ive tryied things like this;
open (POSTINFO,"<GeneralBoard.log");
while (POSTINFO ne eof)

open (POSTINFO,"<GeneralBoard.log");
while ($BoardDetails ne "")

open (POSTINFO,"<GeneralBoard.log");
while (!eof)


can anyone correct my code on the end of file peramaters.

Thanks
DAL

(ps does anyone have problems clicking on the smiles in the post new thread screen?...I keep getting errors with it) =S


MY LIFE IS FULL OF ERRORS! =(

[Chas]

Hi DAL,

Try this:

Code:

my $file = 'data.dat';
open (POSTINFO,"<$file") or die "Unable to read open $file.  Reason: $!";
print while <POSTINFO>;
close (POSTINFO);

As long as you are trying to print the entire file, that will work. Check the perlopentut pod for more info.

~Charlie

[Millennium]

try like this:

open (POSTINFO,"<GeneralBoard.log");
while (<POSTINFO>)
{

$BoardDetails=<POSTINFO>;
print $BoardDetails;

}
close (POSTINFO);

you might also want to look into using Tie::File for working with text files

[DAL]

Sorted ! Cheers ppl =)

[Chas]

Originally Posted by DAL

Sorted ! Cheers ppl =)

What did you end up doing to get it working? Just in case anyone else comes along with the same type of problem.

~Charlie

[DAL]

open (POSTINFO,"<GeneralBoard.log");
while (<POSTINFO>)
{

$BoardDetails=<POSTINFO>;
print $BoardDetails

}
close (POSTINFO);



I didnt try the other way by adding the file name into a variable as this doesnt ever change so it can be staticaly addressed open ie["<GeneralBoard.log");]

Thanks again ppl

It apears I was dumber than I look!
=D

[Chas]

Yeah, I was being a little too generic in my example. I was testing it on a local file and was too lazy to change the file name Anyhow, glad you have it working.

Code:

open (POSTINFO,"<GeneralBoard.log") or die "Unable to read open $file.  Reason: $!";
print while <POSTINFO>;
close (POSTINFO);

~Charlie