Re: How to use sprintf %n formatting pattern

You could break the print into two parts so you can take advantage of knowing the prefix length using %n:

#!/usr/bin/env perl
use 5.010;
use warnings;
use strict;

my $max_width = 60;
my $scale = '1.......10........20........30........40........50.......
+.60';
my $long_string = q{The quick brown fox jumps over the lazy dog};
my $pat = "%.2f %d/%d/%d  %n";
my @aoa = (
    [ qw/79.3      2022  1   8   /],
    [ qw/394571    22    10  81  /],
    [ qw/123456.78 12345 123 1234/],
);

say $scale;
for my $aref (@aoa) {
    my $prefixLen;

    printf $pat, @$aref, $prefixLen;
    my $space = max_width - $prefixLen - 1;
    printf "%-*s|\n", $space, substr $long_string, 0, $space;
}
[download]

Note that you can't do it in a single statement because the arguments to printf need to be evaluated before printf goes about the business of generating its output.

Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond

Comment on Re: How to use sprintf %n formatting pattern Download Code

Replies are listed 'Best First'.
Re^2: How to use sprintf %n formatting pattern by hv (Prior) on Jun 09, 2022 at 03:18 UTC
the arguments to printf need to be evaluated before printf goes about the business of generating its output I'm not sure what you mean by this - as far as I know the arguments are scalars, and it doesn't look at them until it needs to. I suspect you probably could achieve this with a tied scalar dynamically returning `$max_width - $stored_width`. I think it'd be a pretty insane thing to do unless there was some really strong reason not to split it into two prints, but I'm ok with a bit of insanity, I might have a go at it after some sleep.	[reply] [d/l]
Re^3: How to use sprintf %n formatting pattern by GrandFather (Saint) on Jun 09, 2022 at 03:38 UTC
Consider: `my $str = '1234567890' x 6; my $prefixLen; printf "Prefix stuff %n%s\n", $prefixLen, substr $str, 0, 35 - $prefix +Len;` [download] What value does substr see for $prefixLen? How can printf get the substr generated parameter generated after printf has set about generating the output? Optimising for fewest key strokes only makes sense transmitting to Pluto or beyond	[reply] [d/l]
Re^4: How to use sprintf %n formatting pattern by hv (Prior) on Jun 09, 2022 at 11:54 UTC
By using a sprintf parameter to determine the width: `my $str = '1234567890' x 6; my $prefixLen; my $magicLimit = tie_me_a_scalar(sub { $max_width - $prefixLen }); printf "Prefix stuff %n%.s", $prefixLen, $magicLimit, $str;` [download] Update: corrected `%s` to `%.s`*	[reply] [d/l] [select]
Re^5: How to use sprintf %n formatting pattern by GrandFather (Saint) on Jun 09, 2022 at 12:44 UTC
Re^2: How to use sprintf %n formatting pattern by ibm1620 (Hermit) on Jun 09, 2022 at 18:24 UTC
This shows me that I misunderstood how %n works. I had imagined that, at execution, the arguments were copied into a temporary list which the pattern then consumed, and that %n "unshifted" its value onto the head of the list, to be the next thing to be consumed. I didn't realize that the value was actually plugged into the next variable.	[reply]


Perl-Sensitive Sunglasses
	PerlMonks