Lines Matching refs:chr
973 @a = map chr,0..255;
1102 vt => chr(11),
1324 my $X = chr(1448);
1344 $X =~ s/^/chr(1488)/e;
1901 print "not " unless chr(0x100) =~ /\p{IsLatin}/; # outside Latin-1
1904 print "not " unless chr(0x212b) =~ /\p{IsLatin}/; # Angstrom sign, very outside
1907 print "not " unless chr(0x5d0) =~ /\p{IsHebrew}/; # inside InHebrew
1910 print "not " unless chr(0xfb4f) =~ /\p{IsHebrew}/; # outside InHebrew
1914 # print "not " unless chr(0xb5) =~ /\p{IsGreek}/ or ord("A") == 193;
1918 print "not " unless chr(0x37a) =~ /\p{IsGreek}/; # singleton
1921 print "not " unless chr(0x386) =~ /\p{IsGreek}/; # singleton
1924 print "not " unless chr(0x387) =~ /\P{IsGreek}/; # not there
1927 print "not " unless chr(0x388) =~ /\p{IsGreek}/; # range
1930 print "not " unless chr(0x38a) =~ /\p{IsGreek}/; # range
1933 print "not " unless chr(0x38b) =~ /\P{IsGreek}/; # not there
1936 print "not " unless chr(0x38c) =~ /\p{IsGreek}/; # singleton
1946 $AllBytes = join('', map { chr($_) } 0..255);
1948 if ($x ne join('', map { chr($_) } 0x20..0x7E, 0x80..0xFF)) {
1954 if ($x ne join('', map { chr($_) } 0..0x1F, 0x7F)) { print "not " }
1988 ($a, $b) = map { chr } ord('A') == 65 ? (0xc4, 0x80) : (0x8c, 0x41);