Tidying Up Tabbed Printing

neversaint has asked for the wisdom of the Perl Monks concerning the following question:

Dear Masters,
How can I tidy up the print output from this:

D. persimilis          ggacaata
D. grimshawi          tcg-----
D. simulans              gg---agc
D. willistoni          aaataaat
D. virilis          tcg-----
D. sechellia          --------
D. mojavensis          gca-----
D. melanogaster      gagggact
D. erecta          gagggacg
D. yakuba          aagggagg
D. pseudoobscura      ggacaata
=====
[download]

Into this:

D. persimilis          ggacaata
D. grimshawi           tcg-----
D. simulans            gg---agc
D. willistoni          aaataaat
D. virilis             tcg-----
D. sechellia           --------
D. mojavensis          gca-----
D. melanogaster        gagggact
D. erecta              gagggacg
D. yakuba              aagggagg
D. pseudoobscura       ggacaata
=====
[download]

The code I use to print the "untidy" version is this:

foreach my $winno ( 0 .. $highest ) {

    SP:
    foreach my $sp2 ( keys %enum_repo ) {

        my $lmer = $enum_repo{$sp2}[$winno]; 


        if ( $enum_repo{$sp2}[$winno]  ) {

           print "$sp2\t\t$lmer\n";      # PRINTING HERE

        }

    }                    

print "=====\n\n";       

}
[download]

---
neversaint and everlastingly indebted.......

Comment on Tidying Up Tabbed Printing Select or Download Code

Replies are listed 'Best First'.
Re: Tidying Up Tabbed Printing by grep (Monsignor) on May 01, 2008 at 02:07 UTC
The quickest to implement would be using printf. `#!/usr/bin/perl use strict; use warnings; foreach (<DATA>) { chomp; my @strings = split; printf("%-1s %-13s\t%8s\n", @strings); } __DATA__ D. persimilis ggacaata D. grimshawi tcg----- D. simulans gg---agc D. willistoni aaataaat D. virilis tcg----- D. sechellia --------` [download] But you also have the option of using formats. Using a format would be an advantage if you need a repeated header and/or footer. If you don't then I would stick with `printf`. UPDATE: clarified printf vs. format advantages grep `One dead unjugged rabbit fish later...`	[reply] [d/l] [select]
Re^2: Tidying Up Tabbed Printing by andreas1234567 (Vicar) on May 01, 2008 at 14:25 UTC
Text::Table is also to your service. -- No matter how great and destructive your problems may seem now, remember, you've probably only seen the tip of them. [1]	[reply]
Re: Tidying Up Tabbed Printing by Fletch (Bishop) on May 01, 2008 at 02:39 UTC
Perhaps also Text::Reform? The cake is a lie. The cake is a lie. The cake is a lie.	[reply]
Re: Tidying Up Tabbed Printing by jethro (Monsignor) on May 01, 2008 at 02:19 UTC
`my $tab=20; print substr($sp2 . ' ' x $tab,0,$tab),$lmer,"\n";` [download]	[reply] [d/l]
Re: Tidying Up Tabbed Printing by apl (Monsignor) on May 01, 2008 at 09:49 UTC
I'd use a format.	[reply]
Re: Tidying Up Tabbed Printing by moklevat (Priest) on May 01, 2008 at 13:21 UTC
You might also take a look at Perl6::Form.	[reply]


"be consistent"
	PerlMonks