perl function eof

The eof function in Perl is used to test whether the end of a file has been reached. It takes a filehandle as an argument and returns true if the next read on that filehandle will encounter the end of file, otherwise it returns false.

Here's an example of how to use eof function to read a file line by line until the end of file:

open my $fh, "<", "myfile.txt" or die "Cannot open file: $!";
while (<$fh>) {
    chomp;
    # do something with the line
    print "$_\n";
    last if eof($fh);
}
close $fh;

In this example, we open a file named "myfile.txt" for reading using the open function and create a filehandle $fh. We then use a while loop to read each line of the file, which is done by the diamond operator <$fh>. The chomp function removes any newline character at the end of each line. We then print the line and check if the end of file has been reached using the eof function. If the end of file has been reached, we exit the loop using the last statement. Finally, we close the filehandle using the close function.