Mega Code Archive

 

Categories / Perl / File

 

Passing Filehandles by Reference

#!/bin/perl open(READMEFILE, "f1") || die; &readit(*READMEFILE);      # Passing a filehandle to a subroutine sub readit{      local(*myfile)=@_;    # myfile is an alias for READMEFILE      while(<myfile>){         print;      } }