printf '<%06s>', 12; # prints "<000012>"
printf '<%#x>', 12; # prints "<0xc>"
+When a space and a plus sign are given as the flags at once,
+a plus sign is used to prefix a positive number.
+
+ printf '<%+ d>', 12; # prints "<+12>"
+ printf '<% +d>', 12; # prints "<+12>"
+
=item vector flag
This flag tells perl to interpret the supplied string as a vector of
printf '<%.4g>', 100.01; # prints "<100>"
For integer conversions, specifying a precision implies that the
-output of the number itself should be zero-padded to this width:
+output of the number itself should be zero-padded to this width,
+where the 0 flag is ignored:
+
+ printf '<%.6d>', 1; # prints "<000001>"
+ printf '<%+.6d>', 1; # prints "<+000001>"
+ printf '<%-10.6d>', 1; # prints "<000001 >"
+ printf '<%10.6d>', 1; # prints "< 000001>"
+ printf '<%010.6d>', 1; # prints "< 000001>"
+ printf '<%+10.6d>', 1; # prints "< +000001>"
printf '<%.6x>', 1; # prints "<000001>"
printf '<%#.6x>', 1; # prints "<0x000001>"
printf '<%-10.6x>', 1; # prints "<000001 >"
+ printf '<%10.6x>', 1; # prints "< 000001>"
+ printf '<%010.6x>', 1; # prints "< 000001>"
+ printf '<%#10.6x>', 1; # prints "< 0x000001>"
For string conversions, specifying a precision truncates the string
to fit in the specified width:
printf '<%.6x>', 1; # prints "<000001>"
printf '<%.*x>', 6, 1; # prints "<000001>"
+If a precision obtained through C<*> is negative, it has the same
+effect as no precision.
+
+ printf '<%.*s>', 7, "string"; # prints "<string>"
+ printf '<%.*s>', 3, "string"; # prints "<str>"
+ printf '<%.*s>', 0, "string"; # prints "<>"
+ printf '<%.*s>', -1, "string"; # prints "<string>"
+
+ printf '<%.*d>', 1, 0; # prints "<0>"
+ printf '<%.*d>', 0, 0; # prints "<>"
+ printf '<%.*d>', -1, 0; # prints "<0>"
+
You cannot currently get the precision from a specified number,
but it is intended that this will be possible in the future using
e.g. C<.*2$>:
switch (*q) {
case ' ':
case '+':
- plus = *q++;
+ if (plus == '+' && *q == ' ') /* '+' over ' ' */
+ q++;
+ else
+ plus = *q++;
continue;
case '-':
else
i = (ewix ? ewix <= svmax : svix < svmax)
? SvIVx(svargs[ewix ? ewix-1 : svix++]) : 0;
- precis = (i < 0) ? 0 : i;
+ precis = i;
+ has_precis = !(i < 0);
}
else {
precis = 0;
while (isDIGIT(*q))
precis = precis * 10 + (*q++ - '0');
+ has_precis = TRUE;
}
- has_precis = TRUE;
}
/* SIZE */
zeros = precis - elen;
else if (precis == 0 && elen == 1 && *eptr == '0')
elen = 0;
+
+ /* a precision nullifies the 0 flag. */
+ if (fill == '0')
+ fill = ' ';
}
}
break;
>%034b< >2**32-1< >0011111111111111111111111111111111<
>%-34b< >2**32-1< >11111111111111111111111111111111 <
>%-034b< >2**32-1< >11111111111111111111111111111111 <
+>%6b< >12< > 1100<
+>%6.5b< >12< > 01100<
+>%-6.5b< >12< >01100 <
+>%+6.5b< >12< > 01100<
+>% 6.5b< >12< > 01100<
+>%06.5b< >12< > 01100< >0 flag with precision: no effect<
+>%.5b< >12< >01100<
>%c< >ord('A')< >A<
>%10c< >ord('A')< > A<
>%#10c< >ord('A')< > A< ># modifier: no effect<
>%d< >123456.789< >123456<
>%d< >-123456.789< >-123456<
>%d< >0< >0<
+>%-d< >0< >0<
>%+d< >0< >+0<
+>% d< >0< > 0<
>%0d< >0< >0<
+>%-3d< >1< >1 <
+>%+3d< >1< > +1<
+>% 3d< >1< > 1<
+>%03d< >1< >001<
+>%+ 3d< >1< > +1<
+>% +3d< >1< > +1<
>%.0d< >0< ><
>%+.0d< >0< >+<
+>% .0d< >0< > <
+>%-.0d< >0< ><
+>%#.0d< >0< ><
>%.0d< >1< >1<
>%d< >1< >1<
>%+d< >1< >+1<
>%#3.2d< >1< > 01< ># modifier: no effect<
>%3.2d< >1< > 01<
->%03.2d< >1< >001<
+>%03.2d< >1< > 01< >0 flag with precision: no effect<
>%-3.2d< >1< >01 <
+>%+3.2d< >1< >+01<
+>% 3.2d< >1< > 01<
>%-03.2d< >1< >01 < >zero pad + left just.: no effect<
+>%3.*d< >[2,1]< > 01<
+>%3.*d< >[1,1]< > 1<
+>%3.*d< >[0,1]< > 1<
+>%3.*d< >[-1,1]< > 1<
+>%.*d< >[0,0]< ><
+>%-.*d< >[0,0]< ><
+>%+.*d< >[0,0]< >+<
+>% .*d< >[0,0]< > <
+>%0.*d< >[0,0]< ><
+>%.*d< >[-2,0]< >0<
+>%-.*d< >[-2,0]< >0<
+>%+.*d< >[-2,0]< >+0<
+>% .*d< >[-2,0]< > 0<
+>%0.*d< >[-2,0]< >0<
>%d< >-1< >-1<
+>%-d< >-1< >-1<
>%+d< >-1< >-1<
+>% d< >-1< >-1<
+>%-3d< >-1< >-1 <
+>%+3d< >-1< > -1<
+>% 3d< >-1< > -1<
+>%03d< >-1< >-01<
>%hd< >1< >1< >More extensive testing of<
>%ld< >1< >1< >length modifiers would be<
>%Vd< >1< >1< >platform-specific<
>%+-v3d< >"\01\02\03"< >+1 .2 .3 <
>%+-v3d< >[version::qv("1.2.3")]< >+1 .2 .3 <
>%v4.3d< >"\01\02\03"< > 001. 002. 003<
->%0v4.3d< >"\01\02\03"< >0001.0002.0003<
+>%0v4.3d< >"\01\02\03"< > 001. 002. 003<
>%0*v2d< >['-', "\0\7\14"]< >00-07-12<
>%v.*d< >["\01\02\03", 3]< >001.002.003<
>%0v*d< >["\01\02\03", 3]< >001.002.003<
>%-v*d< >["\01\02\03", 3]< >1 .2 .3 <
>%+-v*d< >["\01\02\03", 3]< >+1 .2 .3 <
>%v*.*d< >["\01\02\03", 4, 3]< > 001. 002. 003<
->%0v*.*d< >["\01\02\03", 4, 3]< >0001.0002.0003<
+>%0v*.*d< >["\01\02\03", 4, 3]< > 001. 002. 003<
>%0*v*d< >['-', "\0\7\13", 2]< >00-07-11<
>%0*v*d< >['-', version::qv("0.7.11"), 2]< >00-07-11<
>%e< >1234.875< >1.234875e+03<
>%#o< >2**32-1< >037777777777<
>%o< >642< >1202< >check smaller octals across platforms<
>%+o< >642< >1202<
+>% o< >642< >1202<
>%#o< >642< >01202<
+>%4o< >18< > 22<
+>%4.3o< >18< > 022<
+>%-4.3o< >18< >022 <
+>%+4.3o< >18< > 022<
+>% 4.3o< >18< > 022<
+>%04.3o< >18< > 022< >0 flag with precision: no effect<
+>%4.o< >36< > 44<
+>%-4.o< >36< >44 <
+>%+4.o< >36< > 44<
+>% 4.o< >36< > 44<
+>%04.o< >36< > 44< >0 flag with precision: no effect<
+>%.3o< >18< >022<
+>%#4o< >17< > 021<
+>%#-4o< >17< >021 <
+>%-#4o< >17< >021 <
+>%#+4o< >17< > 021<
+>%# 4o< >17< > 021<
+>%#04o< >17< >0021<
+>%#4.o< >16< > 020<
+>%#-4.o< >16< >020 <
+>%-#4.o< >16< >020 <
+>%#+4.o< >16< > 020<
+>%# 4.o< >16< > 020<
+>%#04.o< >16< > 020< >0 flag with precision: no effect<
+>%#4.3o< >18< > 022<
+>%#-4.3o< >18< >022 <
+>%-#4.3o< >18< >022 <
+>%#+4.3o< >18< > 022<
+>%# 4.3o< >18< > 022<
+>%#04.3o< >18< > 022< >0 flag with precision: no effect<
+>%#6.4o< >18< > 0022<
+>%#-6.4o< >18< >0022 <
+>%-#6.4o< >18< >0022 <
+>%#+6.4o< >18< > 0022<
+>%# 6.4o< >18< > 0022<
+>%#06.4o< >18< > 0022< >0 flag with precision: no effect<
>%d< >$p=sprintf('%p',$p);$p=~/^[0-9a-f]+$/< >1< >Coarse hack: hex from %p?<
>%d< >$p=sprintf('%-8p',$p);$p=~/^[0-9a-f]+\s*$/< >1< >Coarse hack: hex from %p?<
>%#p< >''< >%#p INVALID<
>%3s< >'string'< >string<
>%.3s< >'string'< >str<
>%.*s< >[3, 'string']< >str<
+>%.*s< >[2, 'string']< >st<
+>%.*s< >[1, 'string']< >s<
+>%.*s< >[0, 'string']< ><
+>%.*s< >[-1,'string']< >string< >negative precision to be ignored<
+>%3.*s< >[3, 'string']< >str<
+>%3.*s< >[2, 'string']< > st<
+>%3.*s< >[1, 'string']< > s<
+>%3.*s< >[0, 'string']< > <
+>%3.*s< >[-1,'string']< >string< >negative precision to be ignored<
>%t< >''< >%t INVALID<
>%u< >2**32-1< >4294967295<
>%+u< >2**32-1< >4294967295<
>%012u< >2**32-1< >004294967295<
>%-12u< >2**32-1< >4294967295 <
>%-012u< >2**32-1< >4294967295 <
+>%4u< >18< > 18<
+>%4.3u< >18< > 018<
+>%-4.3u< >18< >018 <
+>%+4.3u< >18< > 018<
+>% 4.3u< >18< > 018<
+>%04.3u< >18< > 018< >0 flag with precision: no effect<
+>%.3u< >18< >018<
>%v< >''< >%v INVALID<
>%w< >''< >%w INVALID<
>%x< >2**32-1< >ffffffff<
>%-10x< >2**32-1< >ffffffff <
>%-010x< >2**32-1< >ffffffff <
>%0-10x< >2**32-1< >ffffffff <
+>%4x< >18< > 12<
+>%4.3x< >18< > 012<
+>%-4.3x< >18< >012 <
+>%+4.3x< >18< > 012<
+>% 4.3x< >18< > 012<
+>%04.3x< >18< > 012< >0 flag with precision: no effect<
+>%.3x< >18< >012<
+>%4X< >28< > 1C<
+>%4.3X< >28< > 01C<
+>%-4.3X< >28< >01C <
+>%+4.3X< >28< > 01C<
+>% 4.3X< >28< > 01C<
+>%04.3X< >28< > 01C< >0 flag with precision: no effect<
+>%.3X< >28< >01C<
+>%.0x< >0< ><
+>%+.0x< >0< ><
+>% .0x< >0< ><
+>%-.0x< >0< ><
+>%#.0x< >0< ><
+>%#4x< >28< >0x1c<
+>%#4.3x< >28< >0x01c<
+>%#-4.3x< >28< >0x01c<
+>%#+4.3x< >28< >0x01c<
+>%# 4.3x< >28< >0x01c<
+>%#04.3x< >28< >0x01c< >0 flag with precision: no effect<
+>%#.3x< >28< >0x01c<
+>%#6.3x< >28< > 0x01c<
+>%#-6.3x< >28< >0x01c <
+>%-#6.3x< >28< >0x01c <
+>%#+6.3x< >28< > 0x01c<
+>%+#6.3x< >28< > 0x01c<
+>%# 6.3x< >28< > 0x01c<
+>% #6.3x< >28< > 0x01c<
>%0*x< >[-10, ,2**32-1]< >ffffffff <
>%vx< >[version::qv("1.2.3")]< >1.2.3<
>%vx< >[version::qv("1.20.300")]< >1.14.12c<
+>%.*x< >[0,0]< ><
+>%-.*x< >[0,0]< ><
+>%+.*x< >[0,0]< ><
+>% .*x< >[0,0]< ><
+>%0.*x< >[0,0]< ><
+>%.*x< >[-3,0]< >0<
+>%-.*x< >[-3,0]< >0<
+>%+.*x< >[-3,0]< >0<
+>% .*x< >[-3,0]< >0<
+>%0.*x< >[-3,0]< >0<
+>%#.*x< >[0,0]< ><
+>%#-.*x< >[0,0]< ><
+>%#+.*x< >[0,0]< ><
+>%# .*x< >[0,0]< ><
+>%#0.*x< >[0,0]< ><
+>%#.*x< >[-1,0]< >0<
+>%#-.*x< >[-1,0]< >0<
+>%#+.*x< >[-1,0]< >0<
+>%# .*x< >[-1,0]< >0<
+>%#0.*x< >[-1,0]< >0<
>%y< >''< >%y INVALID<
>%z< >''< >%z INVALID<
>%2$d %1$d< >[12, 34]< >34 12<
require './test.pl';
}
-plan tests => 284;
+plan tests => 1292;
is(
sprintf("%.40g ",0.01),
is ($bad, 0, "pattern '%v' . chr $ord");
}
}
+
+sub mysprintf_int_flags {
+ my ($fmt, $num) = @_;
+ die "wrong format $fmt" if $fmt !~ /^%([-+ 0]+)([1-9][0-9]*)d\z/;
+ my $flag = $1;
+ my $width = $2;
+ my $sign = $num < 0 ? '-' :
+ $flag =~ /\+/ ? '+' :
+ $flag =~ /\ / ? ' ' :
+ '';
+ my $abs = abs($num);
+ my $padlen = $width - length($sign.$abs);
+ return
+ $flag =~ /0/ && $flag !~ /-/ # do zero padding
+ ? $sign . '0' x $padlen . $abs
+ : $flag =~ /-/ # left or right
+ ? $sign . $abs . ' ' x $padlen
+ : ' ' x $padlen . $sign . $abs;
+}
+
+# Whole tests for "%4d" with 2 to 4 flags;
+# total counts: 3 * (4**2 + 4**3 + 4**4) == 1008
+
+my @flags = ("-", "+", " ", "0");
+for my $num (0, -1, 1) {
+ for my $f1 (@flags) {
+ for my $f2 (@flags) {
+ for my $f3 ('', @flags) { # '' for doubled flags
+ my $flag = $f1.$f2.$f3;
+ my $width = 4;
+ my $fmt = '%'."${flag}${width}d";
+ my $result = sprintf($fmt, $num);
+ my $expect = mysprintf_int_flags($fmt, $num);
+ is($result, $expect, qq/sprintf("$fmt",$num)/);
+
+ next if $f3 eq '';
+
+ for my $f4 (@flags) { # quadrupled flags
+ my $flag = $f1.$f2.$f3.$f4;
+ my $fmt = '%'."${flag}${width}d";
+ my $result = sprintf($fmt, $num);
+ my $expect = mysprintf_int_flags($fmt, $num);
+ is($result, $expect, qq/sprintf("$fmt",$num)/);
+ }
+ }
+ }
+ }
+}
+
projects / p5sagit/p5-mst-13.2.git / commitdiff