http://www.perlmonks.org?node_id=301654


in reply to Re: I don't use printf enough
in thread I don't use printf enough

I often use a similar construct, like so: 
use constant DELIM => "\t";

my $fh = IO::File->new(">$filename") || die $!;

print $fh join(DELIM,
    'Col 1',
    'Col 2',
    'Col 3',
), $/;

# And so forth

[download]

Yes, I should use something like Text::xSV, but it currently doesn't do output.

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

... strings and arrays will suffice. As they are easily available as native data types in any sane language, ... - blokhead, speaking on evolutionary algorithms

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

In Section Meditations