File Perl

  1. Home
  2. Perl
  3. File
  4. Using getc function with while loop
use IO::File;
$filehandle = new IO::File;
$filehandle->open("while (defined($char = $filehandle->getc)) {
    print $char;
}
$filehandle->close;