File Perl

  1. Home
  2. Perl
  3. File
  4. Using read function to read a file
open (FILEHANDLE, "$text = "";
while (read (FILEHANDLE, $newtext, 1)){
    $text .= $newtext;
}
print $text;