File Perl

  1. Home
  2. Perl
  3. File
  4. 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(){
        print;
     }
}