Mega Code Archive

 

Categories / Perl / File

 

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);  }