Perl: Formater output pænt

Det er forresten på win32, så Data:Showtable kan ikke bruges :-(

den nemmeste måde er at bruge printf, den er i perl stort set identisk med C versionen...
her er et eksempel, så må du selv kunne se hvordan man stiller flere kolonner op.
Ønsker du mere dokumentation kan du på linux skrive "man 3 printf"

enjoy
---8<-----------------------------------------------------------------
#!/usr/bin/perl
my %strings = (
    dette => 'er en',
    test => 'der viser',
    hvordan => 'printf virker'
);

# find den laengste key
my $maxkeylength = 0;
foreach (keys(%strings)) {
    if (length($_) > $maxkeylength) { $maxkeylength = length($_); }
}

# stil det op så forskellen kan ses
# (concatenation er kun brugt for at kunne have varabler i den første streng;
# egentlig kommer der til at stå "%-7s %s\n")
foreach (keys(%strings)) {
    printf('%-'.($maxkeylength).'s %s'."\n",$_,$strings{$_});
}

Det ser fornuftigt ud, det proever jeg, hvis du ligger et svar..