Lines Matching refs:sprintf
16 my $s = sprintf "%s", $a;
21 my $s = sprintf "%s", $b;
26 my $s = sprintf "%s%s", $a, $b;
31 my $s = sprintf "%s%s", $b, $a;
36 my $s = sprintf "%s%s", $b, $b;
41 my $s = sprintf "%s$b", $a;
46 my $s = sprintf "$b%s", $a;
51 my $s = sprintf "%s$a", $b;
56 my $s = sprintf "$a%s", $b;
61 my $s = sprintf "$a%s", $a;
66 my $s = sprintf "$b%s", $b;
71 my $s = sprintf "%c", $c;
76 my $s = sprintf "%s%c", $a, $c;
81 my $s = sprintf "%c%s", $c, $a;
86 my $s = sprintf "%c$b", $c;
91 my $s = sprintf "%s%c$b", $a, $c;
96 my $s = sprintf "%c%s$b", $c, $a;
101 my $s = sprintf "$b%c", $c;
106 my $s = sprintf "$b%s%c", $a, $c;
111 my $s = sprintf "$b%c%s", $c, $a;
116 # 20010407.008 sprintf removes utf8-ness
117 $a = sprintf "\x{1234}";
118 is((sprintf "%x %d", unpack("U*", $a), length($a)), "1234 1",
120 $a = sprintf "%s", "\x{5678}";
121 is((sprintf "%x %d", unpack("U*", $a), length($a)), "5678 1",
123 $a = sprintf "\x{1234}%s", "\x{5678}";
124 is((sprintf "%x %x %d", unpack("U*", $a), length($a)), "1234 5678 2",
132 my $sprintf;
134 $sprintf = sprintf "%s%s", $w, "$w\x{100}";
135 is(substr($sprintf,0,2), $w, "utf8 echo");
137 $sprintf = sprintf "%s%s", $w, "$w\x{100}";
138 is(substr($sprintf,0,2), $w, "utf8 echo echo");