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";
really uglier than this? To each their own, but I don't see a substantial difference...
print $tee,"whatever";
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] |