Using a scalar variable to store a file variable name. : file handle « File « Perl






  1. Perl
  2. File
  3. file handle

Using a scalar variable to store a file variable name.

    
#!/usr/local/bin/perl 

&open_file("INFILE", "", "file1"); 
&open_file("OUTFILE", ">", "file2"); 
while ($line = &read_from_file("INFILE")) { 
    &print_to_file("OUTFILE", $line); 
} 

sub open_file { 
    local ($filevar, $filemode, $filename) = @_; 
    open ($filevar, $filemode . $filename) || die ("Can't open $filename"); 
} 
sub read_from_file { 
    local ($filevar) = @_; 
    <$filevar>; 
} 
sub print_to_file { 
    local ($filevar, $line) = @_; 
    print $filevar ($line); 
}








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 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