Mega Code Archive

 

Categories / Perl / File

 

Reads lines from a file and prints them

#!/usr/local/bin/perl  if (open(MYFILE, "file1")) {     $line = <MYFILE>;     while ($line ne "") {        print ($line);        $line = <MYFILE>;     }  }