File Perl

  1. Home
  2. Perl
  3. File
  4. Reference eof function from file handle to check if it is the end of file
use IO::File;
$filehandle = new IO::File;
$filehandle->open("$text = "";
until ($filehandle->eof) {
    $filehandle->read($newtext, 1);
    $text .= $newtext;
}
print $text;
$filehandle->close;