File Perl

  1. Home
  2. Perl
  3. File
  4. Pass file handle reference in a the form of FILEHANDLE{IO}
sub printem
{
    my $file = shift;
    while (<$file>) {
         print;
    }
}
open FILEHANDLE, "printem *FILEHANDLE{IO};