Perl formatting a string

Question

I'm trying to format a string which has three columns. The first column data length can be different so I don’t know how to format my string in a right way.

for my $k(keys %results) {
   my ($k1,$k2);
   # $k1 and $k2 are always equal to '-' or '+'
   # $k = "nnn_12_555_addd";
   ...
   format STDOUT =
@<<<<<<<<<< @> @>
$k, $k1, $k2
.
   write;
}

How do I make the first column @<<<< to keep the right size?

If the $k value is longer than the specified <'s, I'm losing a part from that value in the output...

Sample input

$k1 = '+'
$k2 = '-'

$k = 'aaa_bbb'
output:
aaa_bbb            +    -

$k = 'aaa_bbb_ccc'
output:
aaa_bbb_ccc        +    -

$k = 'aaa_bbb_ccc_ddd'
output:
aaa_bbb_ccc_ddd    +    -

Can you add sample input and expected output?

choroba
– choroba

2016-06-03 11:15:46 +00:00
Commented Jun 3, 2016 at 11:15 — choroba
– choroba, Commented Jun 3, 2016 at 11:15
@choroba added some samples

user3544092
– user3544092

2016-06-03 11:17:56 +00:00
Commented Jun 3, 2016 at 11:17 — user3544092
– user3544092, Commented Jun 3, 2016 at 11:17

Peter Mortensen · Accepted Answer · 2020-11-23 21:24:22Z

3

I suggest you forget about Perl's format() and use printf() instead:

use strict;
use warnings 'all';

my $k1 = '+';
my $k2 = '-';

for my $k (qw/ aaa_bbb  aaa_bbb_ccc  aaa_bbb_ccc_ddd /) {
    printf "%-20s%-5s%-5s\n", $k, $k1, $k2;
}

Output

aaa_bbb             +    -
aaa_bbb_ccc         +    -
aaa_bbb_ccc_ddd     +    -

Update

If you want to fit the first column width to the longest of the values, you can use a dynamic field width in printf. A format specifier like %*s takes two values from the parameter list: an integer width for the fields and a string.

The program would look like this:

use strict;
use warnings 'all';

use List::Util 'max';

my $k1 = '+';
my $k2 = '-';

my @k_vals = qw/ aaa_bbb  aaa_bbb_ccc  aaa_bbb_ccc_ddd  aaa_bbb_ccc_ddd_eee /;
my $w = max map length, @k_vals;

for my $k ( @k_vals ) {
    printf "%-*s %-5s%-5s\n", $w, $k, $k1, $k2;
}

Output

aaa_bbb             +    -
aaa_bbb_ccc         +    -
aaa_bbb_ccc_ddd     +    -
aaa_bbb_ccc_ddd_eee +    -

edited Nov 23, 2020 at 21:24

Peter Mortensen

31.4k22 gold badges110 silver badges134 bronze badges

answered Jun 3, 2016 at 11:25

Borodin

127k9 gold badges72 silver badges146 bronze badges

Sign up to request clarification or add additional context in comments.

5 Comments

user3544092 Over a year ago

and what can i do if $k is longer than 20 characters?

choroba Over a year ago

@user3544092: What do you want to happen?

user3544092 Over a year ago

@choroba keep the string formatted? i mean the spaces between first columnt to second must be determinated according to the longest value of column 1 and it must be used for all other lines to keep the final output the same

Sobrique Over a year ago

Does anyone still use format in anger? I have used it for the sake of some training, but ... never since.

Borodin Over a year ago

@Sobrique: It's quite awkward laying out big reports using printf, so format has its uses there. I tend to use Perl6::Form in similar situations to where a here document would be more appropriate. It's a huge improvement over the Perl 5 version

Collectives™ on Stack Overflow

Perl formatting a string

Sample input

1 Answer 1

Output

Update

Output

5 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

Sample input

1 Answer 1

Output

Update

Output

5 Comments

Your Answer

Sign up or log in

Post as a guest

Related