Re^4: Redirect Subroutine Output

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 :

Comment on Re^4: Redirect Subroutine Output Select or Download Code

Replies are listed 'Best First'.
Re^5: Redirect Subroutine Output by ikegami (Patriarch) on Aug 26, 2009 at 18:43 UTC
Sounds like you want ambrus's 3rd solution `# Open log file once open(MYFILE, '>>', $qfn) or die("Cannot open file $qfn for appending: $!\n"); ... print_to($to_file ? MYFILE : STDOUT, $str);` [download] Better yet, use a lexical `open(my $MYFILE, '>>', $qfn) or die("Cannot open file $qfn for appending: $!\n"); ... print_to($to_file ? $MYFILE : STDOUT, $str);` [download] Finally, if you want to reopen the file every time you call `print_to`, `my $MYFILE; if ($to_file) { open($MYFILE, '>>', $qfn) or die("Cannot open file $qfn for appending: $!\n"); print_to($to_file ? $MYFILE : STDOUT, $str); } else { $MYFILE = *STDOUT; } print_to($MYFILE, $str);` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Redirect Subroutine Output
by ikegami (Patriarch) on Aug 26, 2009 at 18:43 UTC

# Open log file once
open(MYFILE, '>>', $qfn)
    or die("Cannot open file $qfn for appending: $!\n");

...

print_to($to_file ? *MYFILE : *STDOUT, $str);
[download]

Better yet, use a lexical

open(my $MYFILE, '>>', $qfn)
    or die("Cannot open file $qfn for appending: $!\n");

...

print_to($to_file ? $MYFILE : *STDOUT, $str);
[download]

Finally, if you want to reopen the file every time you call print_to,

my $MYFILE;
if ($to_file) {
    open($MYFILE, '>>', $qfn)
        or die("Cannot open file $qfn for appending: $!\n");

    print_to($to_file ? $MYFILE : *STDOUT, $str);
} else {
    $MYFILE = *STDOUT;
}

print_to($MYFILE, $str);
[download]

[reply]
[d/l]
[select]