File Perl

  1. Home
  2. Perl
  3. File
  4. Using read function in while loop
use IO::File;
$filehandle = new IO::File;
$filehandle->open("$text = "";
while ($filehandle->read($newtext, 1)) {
    $text .= $newtext;
}
print $text;
$filehandle->close;