Passing file handles to functions : file handle « File « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » File » file handle

Passing file handles to functions

    



#!/usr/bin/perl



use warnings;

use strict;



my $file = "yourFile.txt";

open( FILE, $file ) or die( "Error opening $file: $!" );

my $filehandle = *FILE;

readhandle( $filehandle );

close( FILE ) or die( "Error closing $file: $!" );





sub readhandle

{

   my $fh = shift();

   print while ( <$fh> );

}

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.	Filehandle References
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

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.