Normally you don't use eof but rather check the return value of whatever you're using to read the filehandle. Usually that's the diamond operator (<>, aka readline):

open my $filehandle, "<", $filename or die "Oof! $!";
while (<$filehandle>) {
  do_something();
}
close $filehandle;
do_something_else()
[download]

When the conditional of the while becomes false, then there are no more lines to read and you've reached the end of the file and in your case do_something_else looks like it should display a message.

I'm not sure what the problem is, exactly. Do you want to just know when the program has finished reading?

use strict;
use warnings;
my $file = "file.txt";
open FH, "<", $file;
while(<FH> {
# do something here...
}
print "End of file has been reached\n";
[download]

I think that ought to do it for you, though I haven't actually tested the code.

The majority of the time, using eof is a mistake.

What code have you written so far? If we had an example, someone could show you how to achieve what you want. (Please keep this in mind: it’s never a good idea to ask about a particular programming problem without posting any code.)

Makeshifts last the longest.

#!/usr/local/bin/perl
use warnings;
use strict;
my $filename = 'your_file';
open my $filehandle, '<', $filename or die $!;
while (my $line = <$filehandle>) {
    print $line;
}
print "End of File!\n";
[download]

Hi guys,

Thank you those who have responded for my question..

i am sorry to say that, i didnt get what i expected..

my aim is: when i reach the last line of the file.. i will add some text to that line and finish the program.

pls help me..

Thanks

Franklin

I beleive then what you want to do is to open in "+>" mode for read write. Then read the file then start writing.

If all you're doing is writing to the end of the file, it's easy. When you open it, open it to "append" - meaning, what you write is added to the end of the file.

open FH, ">>", $file or die "Can't open $file: $!";

It's always a good idea to test when you open, in case something happened. If you don't, you may have a very hard time figuring out what went wrong, later on.

So, it sounds like you are saying "I want to append data to the end of my file." If that's true, follow the advice of the comment below and read up on the open() function. It tells you how to open a file to append it.

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon";
$nysus = $PM . $MCF;
Click here if you love Perl Monks

my aim is: when i reach the last line of the file.. i will add some text to that line and finish the program.

Oh "XY", then: you really want to ask X, but you think you need Y to do that, and ask about Y.

This sounds like: "I want to append to the end of file". If so, then just either open in >> mode if you only want to append, or +> if you also want to read it before writing something in it.

The function eof will return true after you've read all of the lines of the file. A simple example:

open FH, '<', 'file.txt' or die ("Can't read file: $!");

until( eof(FH) ) {
  print <FH>;
}
[download]

However, you rarely need to use eof() to accomplish what you are asking about. Imagine that you want read in a text file and, when finished, print the average length of lines (excluding any ending whitespace) to the screen, along with the number of lines. You might do that this way:

open FH, '<', 'file.txt' or die ("Can't read file: $!");

my ($lines, $total_length);

while (<FH>) {
   s/\s+$//s; # trims all traling whitespace, including \n
   ++$lines;
   $total_length += length($_);
}

#loop ends automatically when you reach EOF
printf "File had %d lines, with an average length of %d chars\n",
   $lines, ($total_length / $lines);
[download]

You see? You don't need to check for EOF by hand, as Perl does it for you.