Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/utf8.t

Lines Matching refs:chr
134       my $char = chr $_;
143           = join " . ", map {sprintf 'chr (%d)', ord $_} split //, $char;
149               'my @a = ("'.chr(60).'\x2A", ""); $b = show @a', qr/^>60,42<><$/],
151               '$a = "' . chr (173) . '"; $b = show $a', qr/^>173<$/],
153               'no utf8; $a = "' . chr (173) . '"; $b = show $a', qr/^>173<$/],
156                ["the utf8 sequence for chr $_->[0]",
158                ["no utf8; for the utf8 sequence for chr $_->[0]",
160                ["use utf8; for the utf8 sequence for chr $_->[0]",
209         ["assign utf8 for chr $_->[0] to a hash",
213         ["no utf8; assign utf8 for chr $_->[0] to a hash",
217         ["use utf8; assign utf8 for chr $_->[0] to a hash",
219             my \$b = show keys %h; \$b .= 'F' unless \$h{chr $_->[0]}; \$b),
222         ["\$h{\"x\"} construction, where x is utf8 for chr $_->[0]",
226         ["no utf8; \$h{\"x\"} construction, where x is utf8 for chr $_->[0]",
230         ["use utf8; \$h{\"x\"} construction, where x is utf8 for chr $_->[0]",
232             my \$b = show keys %h; \$b .= 'F' unless \$h{chr $_->[0]}; \$b),
235         ["assign \"x\"=>1 to a hash, where x is utf8 for chr $_->[0]",
239         ["no utf8; assign \"x\"=>1 to a hash, where x is utf8 for chr $_->[0]",
243         ["use utf8; assign \"x\"=>1 to a hash, where x is utf8 for chr $_->[0]",
245             my \$b = show keys %h; \$b .= 'F' unless \$h{chr $_->[0]}; \$b),
248         ["assign utf8 for chr $_->[0] to a hash, then copy it",
252         ["no utf8; assign utf8 for chr $_->[0] to a hash, then copy it",
256         ["use utf8; assign utf8 for chr $_->[0] to a hash, then copy it",
258             my \$b = show keys %h; \$b .= 'F' unless \$h{chr $_->[0]}; \$b),
340     my $b = chr(0x0FF);
341     my $c = chr(0x100);