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


in reply to printing out tabs between each element in an array

You can set the output field separator to the tab character.

$" = "\t";
print ARRAY_CONTENTS "@cols_for_row\n";

[download]

Remember to restore the output field separator to its default value after you're done with the tab formating

Replies are listed 'Best First'.
Re^2: printing out tabs between each element in an array
by johngg (Canon) on Feb 18, 2008 at 14:15 UTC
    Remember to restore the output field separator to its default value after you're done with the tab formating

    One way to make it difficult to forget is to keep the localisation within the print statement by using a do block.

    print ARRAY_CONTENTS do
   {
       local $" = "\t";
       "@cols_for_row\n";
   };

    [download]

    I hope this is of interest.

    Cheers,

    JohnGG

[reply]
[d/l]
[select]
A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom