Lines Matching refs:bytes
30 binmode(F,":bytes");
68 binmode(F, ":bytes");
82 { use bytes; $y = length($a);}
87 use bytes; my $y = length($b);
94 use bytes; my $y = length($b);
100 { use bytes; if (ord('A')==193){$y += 2;}else{$y += 3;}} # EBCDIC ASCII
107 binmode(F, ":bytes");
122 binmode(F, ":bytes:");
138 binmode(F, ":bytes");
143 binmode(F, ":bytes");
185 # read() should work on characters, not bytes
192 tell(F) == ($a += bytes::length($b))) {
196 print '# bytes::length($b) == ', bytes::length($b), "\n";
214 binmode(F, ":bytes");
248 binmode(F, ":bytes");
256 open F, ">:bytes","a"; print F "\xde"; close F;
258 open F, "<:bytes", "a";
261 ok( $b eq chr(0x100).chr(0xde), "21395 '.= <>' utf8 vs. bytes" );
271 ok( $b eq chr(0xde).chr(0x100), "21395 '.= <>' bytes vs. utf8" );
276 my @a = ( [ 0x007F, "bytes" ],
277 [ 0x0080, "bytes" ],