Mega Code Archive

 

Categories / Perl / File

 

Using file handle variable

open FILEHANDLE, "<file.txt" or die "Can not open file"; *FILEHANDLE2 = *FILEHANDLE; while (<FILEHANDLE2>) {     print; }