Printing to a File from Sub

PyrexKidd has asked for the wisdom of the Perl Monks concerning the following question:

How do I print to a file from a sub routine when using strict subs?

I have a program that opens a file in the main portion of the code and then calls a sub that needs to print to the same file as well. I would like to avoid opening and closing the file every time I have to write to it.

In Java I would open the file in the main sub and then pass the file as an object to whatever sub nees to print to it.

ie:

public main(){
   FileWriter file = new fileWriter();
   file.open("file.txt");
   print_sub(file);
}
private print_sub(FileWriter file){
   //do something with the file
}
[download]

is there a way to do this in Perl? thanks in advance

Comment on Printing to a File from Sub Download Code

Replies are listed 'Best First'.
Re: Printing to a File from Sub by Corion (Patriarch) on Aug 26, 2010 at 17:51 UTC
In Perl, you do it the same. `my $logfile = 'file.txt'; open my $log_fh, '>>', $logfile or die "Couldn't open '$logfile': $!"; sub print_sub { my ($log) = @_; print {$log} "Starting work\n"; }; ... print_sub($log_fh);` [download] But maybe you want Log::Log4perl?	[reply] [d/l]
Re: Printing to a File from Sub by suaveant (Parson) on Aug 27, 2010 at 14:56 UTC
Of course, if your code is OO you could also store the filehandle in the object to prevent the need for passing it around, even better create a method to retrieve the fh that created it on the first request. Perl filehandles when create as Corion exhibited can be passed around like any scalar, pretty much. Or you could even create a closure to handle all prints: `{ my $fh; open($fh,'>',$file); sub print_to_fh { print $fh @_; } }` [download] As always, TIMTOWTDI :) - Ant - Some of my best work - (1 2 3)	[reply] [d/l]
Re^2: Printing to a File from Sub by PyrexKidd (Monk) on Aug 27, 2010 at 22:56 UTC
here is code I am trying to use: `#!/usr/bin/perl use strict; use warnings; open my $fhout, '>', "./test_out.file" \|\| die "$!"; &test_print($fhout); sub test_print{ my $fhout = @_; print {$fhout} "this is a test\n"; } close $fhout;` [download] and here is the error message I keep getting: `~$ perl test_write.pl Can't use string ("1") as a symbol ref while "strict refs" in use at t +est_write.pl line 11.` [download] What is going on here? am I just missing something? Thanks for the assist.	[reply] [d/l] [select]
Re^3: Printing to a File from Sub by choroba (Cardinal) on Aug 30, 2010 at 16:47 UTC
You should either use `open my $fhout, '>', "./test_out.file" or die "$!";` [download] or `open (my $fhout, '>', "./test_out.file") \|\| die "$!";` [download] . The code you posted is parsed as `open (my $fhout, '>', ("./test_out.file" \|\| die "$!"));` [download] which is definitely not what you want. To avoid the error you reported, though, use `my ($fhout) = @_;` [download] or `my $fhout = shift;` [download] Also note that the ampersand sign & is not needed when calling a sub (see perlsub).	[reply] [d/l] [select]
Re^3: Printing to a File from Sub by pemungkah (Priest) on Aug 29, 2010 at 00:50 UTC
Putting the filehandle in parens told Perl that it is the argument to `print`, and so you wanted to print it to STDOUT - which is not what you wanted. You wanted to say `print $fhout "this is a test\n";` [download] It should also be noted that the variable `$fhout` is actually still in scope in your subroutine, so you technically could just use it. It is, however, better practice to pass it in. Edit: choroba is correct as s/he notes below. I did mistake the curlies for parens.	[reply] [d/l]
Re^4: Printing to a File from Sub by choroba (Cardinal) on Aug 30, 2010 at 16:50 UTC
Re^4: Printing to a File from Sub by suaveant (Parson) on Aug 30, 2010 at 19:33 UTC


go ahead... be a heretic
	PerlMonks