Mega Code Archive

 

Categories / Perl / File

 

Reference eof function from file handle to check if it is the end of file

use IO::File; $filehandle = new IO::File; $filehandle->open("<file.txt") or die "Could not open file.txt"; $text = ""; until ($filehandle->eof) {     $filehandle->read($newtext, 1);     $text .= $newtext; } print $text; $filehandle->close;