Re: Redirect Subroutine Output

Better solution:

my $out_fh;
if ($to_file) {
    open($out_fh, '>', ...)
        or die(...);
} else {
    $out_fh = \*STDOUT;
}

...

print $out_fh "blah\n";
[download]

You can also change the default handle:

if ($to_file) {
    open(my $out_fh, '>', ...)
        or die(...);
    select($out_fh);
}

...

print "blah\n";
[download]

Comment on Re: Redirect Subroutine Output Select or Download Code

Replies are listed 'Best First'.
Re^2: Redirect Subroutine Output by spickles (Scribe) on Aug 26, 2009 at 17:30 UTC
This is why I LOVE this website...so many options! Thanks to everyone that responded. The quickest and most direct route for me is to store to a concatenated string and then print that string to either STDOUT or MYFILE depending on how I call a print function.	[reply]
Re^3: Redirect Subroutine Output by ikegami (Patriarch) on Aug 26, 2009 at 17:37 UTC
print that string to either STDOUT or MYFILE depending on how I call a print function. `print { $to_file ? MYFILE : STDOUT } $str;` [download]	[reply] [d/l]
Re^4: Redirect Subroutine Output by spickles (Scribe) on Aug 26, 2009 at 18:23 UTC
ikegami - How do I define `*MYFILE`? I've been doing it using `open(MYFILE,'>>out.txt');` But to write to that file, it has to be opened, written to, and then closed. So I'm not sure how to define `MYFILE` prior to calling the `print_to()` function. Would it now be a file handle, and pass something like `$fh` to the subroutine? I don't know what words to use to look up more about your method of passing variables using the `?` and `:`	[reply] [d/l] [select]
Re^5: Redirect Subroutine Output by ikegami (Patriarch) on Aug 26, 2009 at 18:43 UTC


No such thing as a small change
	PerlMonks