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






  1. Perl
  2. File
  3. file handle

Passing file name to functions

    

#!/usr/bin/perl

use warnings;
use strict;

my $file = "yourFile.txt";

print( "\n\nAnd finally...\n" );
readfile( $file );

sub readfile
{
   my $file = shift();
   local *FILE;
   open( FILE, $file ) or die( "Error opening $file: $!" );
   print while ( <FILE> );
}








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.Filehandle References
9.Split a file handle containing array
10.undef file handle
11.defined lines in a file
12.Using a scalar variable to store a file variable name.
13.Using while loop to read content
14.Redirects the standard output and standard error files.
15.To write to a file: