File Perl

  1. Home
  2. Perl
  3. File
  4. Read file content to a scalar variable
open (FILEHANDLE, "$text = "";
until (eof FILEHANDLE) {
    read (FILEHANDLE, $newtext, 1) 
    $text .= $newtext;
}
print $text;