Re: saving search results to file

Why not something simple, like this?

output(\*FILE,'<a href="test.html">testing</a><BR>\n');

sub output {
    my ($fh,$msg) = @_;
    
    print $msg;
    print $fh $msg;
}
[download]

Isn't using IO:Tee here much like smashing a fly with a hammer? Am I missing something in the original question?

--
AC

Comment on Re: saving search results to file Download Code

Replies are listed 'Best First'.
Re^2: saving search results to file by tcf03 (Deacon) on May 03, 2005 at 19:42 UTC
Not really, this is just sample code - the actual code would be pretty ugly having to do that each time. `print $tee "whatever";` [download] seems much simpler and doesnt add a lot of overhead to my code. Ted -- "Men have become the tools of their tools." --Henry David Thoreau	[reply] [d/l]
Re^3: saving search results to file by Anonymous Monk on May 03, 2005 at 22:06 UTC
Not really, this is just sample code - the actual code would be pretty ugly having to do that each time. You're including hundreds lines of code to save typing a 3 line subroutine? That sounds like overkill to me. Put it this way: if IO::Tee breaks on you (as CPAN modules, nice as they are, occasionally do), would you rather track down the bugs in the big scary module, or the little 3 line subroutine? Me, I'll maintain the simplest thing that works, thanks! Cleverness for it's own sake is for people who like fixing bugs. ;-) As for "uglyness", is this: `output $file,"whatever";` [download] really uglier than this? To each their own, but I don't see a substantial difference... `print $tee,"whatever";` [download] It's your program, but me, I'd go for simple over "pretty", myself. Especially if I had to maintain it later. -- AC	[reply] [d/l] [select]