Formatting Into Columns

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

Hi, I have the following code that prints out data

foreach $key (sort keys %hash) {
        print "$key\n$hash{$key}\n";
}
[download]

but the data for each $hash($key) is of different length....how would i format this to get the data to be in straight columns? from

type
abcdef  12 11 19
obc 1 3 4
[download]

type
abcdef   12   11   19
obc       1    3    4
[download]

thanks

Comment on Formatting Into Columns Select or Download Code

Replies are listed 'Best First'.
Re: Formatting Into Columns by PhiRatE (Monk) on Jul 23, 2002 at 22:10 UTC
perldoc perlform `# Define the format, left align first, right align remainder format Schema = @<<<<<<<< @>>>>> @>>>>> @>>>>> $key, $s[0], $s[1], $s[2] . $~ = "Schema"; # Set the format we're going to use for $key (sort keys %hash) { @s = split(' ',$hash{$key}); write; }` [download] Enjoy. (Consider in your next post specifying the exact format of $hash{$key}, in this case I've assumed it was a space-seperated string of numbers, but maybe it was an array-ref instead and you just didn't mention the join..)	[reply] [d/l]
Re: Formatting Into Columns by emilford (Friar) on Jul 23, 2002 at 21:08 UTC
Check out this node. It may help you along your way. You could probably also use printf and sprintf in this situation. HTH	[reply]
Re: Formatting Into Columns by ehdonhon (Curate) on Jul 23, 2002 at 21:08 UTC
Take a look at perldoc perlform.	[reply]