Filehandle References : file handle « File « Perl






  1. Perl
  2. File
  3. file handle

Filehandle References

    

#!/bin/perl
open(README, "/etc/passwd") || die;

&readit(\*README);     # Reference to a typeglob

sub readit {
      my ($passwd)=@_;
      print "\$passwd is a $passwd.\n";
      while(<$passwd>){
         print;
      }
}

seek(README,0,0) || die "seek: $!\n"; # Reset back to begining of job








Related examples in the same category

1.Using file handle variable
2.Select a file handle
3.Pass file handle reference in a the form of '*FILEHANDLE{IO}'
4.Pass file handle reference to a subroutine
5.Pass file handle to stat function
6.Passing Filehandles by Reference
7.Passing file handles to functions
8.Split a file handle containing array
9.undef file handle
10.defined lines in a file
11.Using a scalar variable to store a file variable name.
12.Using while loop to read content
13.Redirects the standard output and standard error files.
14.To write to a file:
15.Passing file name to functions