File Perl

  1. Home
  2. Perl
  3. File
  4. Reads lines from a file and prints them
#!/usr/local/bin/perl 
if (open(MYFILE, "file1")) { 
   $line = ; 
   while ($line ne "") { 
      print ($line); 
      $line = ; 
   } 
}