X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fbytes.pm;h=9a04491daf156a7b0e8f202c0d836bf0bd67abeb;hb=cc83745da206d409d7227df077f422fd9ecbe680;hp=cd82abc75b5b360d2b13c77dee26444dd41394c6;hpb=c26c758be9c6b4b88aa5d07ac4631a815b5f2e2f;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/bytes.pm b/lib/bytes.pm index cd82abc..9a04491 100644 --- a/lib/bytes.pm +++ b/lib/bytes.pm @@ -1,6 +1,6 @@ package bytes; -our $VERSION = '1.00'; +our $VERSION = '1.01'; $bytes::hint_bits = 0x00000008; @@ -18,6 +18,11 @@ sub AUTOLOAD { } sub length ($); +sub chr ($); +sub ord ($); +sub substr ($$;$$); +sub index ($$;$); +sub rindex ($$;$); 1; __END__ @@ -29,8 +34,15 @@ bytes - Perl pragma to force byte semantics rather than character semantics =head1 SYNOPSIS use bytes; + ... chr(...); # or bytes::chr + ... index(...); # or bytes::index + ... length(...); # or bytes::length + ... ord(...); # or bytes::ord + ... rindex(...); # or bytes::rindex + ... substr(...); # or bytes::substr no bytes; + =head1 DESCRIPTION The C pragma disables character semantics for the rest of the @@ -53,16 +65,22 @@ up the UTF8 encoding - and C returns C<2>: print "Length is ", length $x, "\n"; # "Length is 1" printf "Contents are %vd\n", $x; # "Contents are 400" { - use bytes; + use bytes; # or "require bytes; bytes::length()" print "Length is ", length $x, "\n"; # "Length is 2" printf "Contents are %vd\n", $x; # "Contents are 198.144" } +chr(), ord(), substr(), index() and rindex() behave similarly. + For more on the implications and differences between character -semantics and byte semantics, see L. +semantics and byte semantics, see L and L. + +=head1 LIMITATIONS + +bytes::substr() does not work as an lvalue(). =head1 SEE ALSO -L, L +L, L, L =cut