FileMgr

✏️ /usr/share/perl/5.38.2/bytes.pm

✕ Tutup

package bytes;

use strict;
use warnings;

our $VERSION = '1.08';

$bytes::hint_bits = 0x00000008;

sub import {
    $^H |= $bytes::hint_bits;
}

sub unimport {
    $^H &= ~$bytes::hint_bits;
}

our $AUTOLOAD;
sub AUTOLOAD {
    require "bytes_heavy.pl";
    goto &$AUTOLOAD if defined &$AUTOLOAD;
    require Carp;
    Carp::croak("Undefined subroutine $AUTOLOAD called");
}

sub length (_);
sub chr (_);
sub ord (_);
sub substr ($$;$$);
sub index ($$;$);
sub rindex ($$;$);

1;
__END__

=head1 NAME

bytes - Perl pragma to expose the individual bytes of characters

=head1 NOTICE

Because the bytes pragma breaks encapsulation (i.e. it exposes the innards of
how the perl executable currently happens to store a string), the byte values
that result are in an unspecified encoding.

B<Use of this module for anything other than debugging purposes is
strongly discouraged.>  If you feel that the functions here within
might be useful for your application, this possibly indicates a
mismatch between your mental model of Perl Unicode and the current
reality. In that case, you may wish to read some of the perl Unicode
documentation: L<perluniintro>, L<perlunitut>, L<perlunifaq> and
L<perlunicode>.

=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

Perl's characters are stored internally as sequences of one or more bytes.
This pragma allows for the examination of the individual bytes that together
comprise a character.

Originally the pragma was designed for the loftier goal of helping incorporate
Unicode into Perl, but the approach that used it was found to be defective,
and the one remaining legitimate use is for debugging when you need to
non-destructively examine characters' individual bytes.  Just insert this
pragma temporarily, and remove it after the debugging is finished.

The original usage can be accomplished by explicit (rather than this pragma's
implicit) encoding using the L<Encode> module:

use Encode qw/encode/;

my $utf8_byte_string   = encode "UTF8",   $string;
    my $latin1_byte_string = encode "Latin1", $string;

Or, if performance is needed and you are only interested in the UTF-8
representation:

utf8::encode(my $utf8_byte_string = $string);

C<no bytes> can be used to reverse the effect of C<use bytes> within the
current lexical scope.

As an example, when Perl sees C<$x = chr(400)>, it encodes the character
in UTF-8 and stores it in C<$x>. Then it is marked as character data, so,
for instance, C<length $x> returns C<1>. However, in the scope of the
C<bytes> pragma, C<$x> is treated as a series of bytes - the bytes that make
up the UTF8 encoding - and C<length $x> returns C<2>:

$x = chr(400);
 print "Length is ", length $x, "\n";     # "Length is 1"
 printf "Contents are %vd\n", $x;         # "Contents are 400"
 {
     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 (on
                                          # ASCII platforms)"
 }

C<chr()>, C<ord()>, C<substr()>, C<index()> and C<rindex()> behave similarly.

For more on the implications, see L<perluniintro> and L<perlunicode>.

C<bytes::length()> is admittedly handy if you need to know the
B<byte length> of a Perl scalar.  But a more modern way is:

use Encode 'encode';
   length(encode('UTF-8', $scalar))

=head1 LIMITATIONS

C<bytes::substr()> does not work as an I<lvalue()>.

=head1 SEE ALSO

L<perluniintro>, L<perlunicode>, L<utf8>, L<Encode>

=cut

Batal

⬅ perl 127 item

Nama	Tipe	Ukuran	Diubah	Perm	Aksi
📁 App	dir	—	15/06/26 13:44	0755	📂
📁 Archive	dir	—	15/06/26 13:44	0755	📂
📁 Attribute	dir	—	15/06/26 13:44	0755	📂
📁 B	dir	—	15/06/26 13:44	0755	📂
📁 CPAN	dir	—	15/06/26 13:44	0755	📂
📁 Carp	dir	—	15/06/26 13:44	0755	📂
📁 Class	dir	—	15/06/26 13:44	0755	📂
📁 Compress	dir	—	15/06/26 13:44	0755	📂
📁 Config	dir	—	15/06/26 13:44	0755	📂
📁 DBM_Filter	dir	—	15/06/26 13:44	0755	📂
📁 Devel	dir	—	15/06/26 13:44	0755	📂
📁 Digest	dir	—	15/06/26 13:44	0755	📂
📁 Encode	dir	—	15/06/26 13:44	0755	📂
📁 Exporter	dir	—	15/06/26 13:44	0755	📂
📁 ExtUtils	dir	—	15/06/26 13:44	0755	📂
📁 File	dir	—	15/06/26 13:44	0755	📂
📁 Filter	dir	—	15/06/26 13:44	0755	📂
📁 Getopt	dir	—	15/06/26 13:44	0755	📂
📁 HTTP	dir	—	15/06/26 13:44	0755	📂
📁 I18N	dir	—	15/06/26 13:44	0755	📂
📁 IO	dir	—	15/06/26 13:44	0755	📂
📁 IPC	dir	—	15/06/26 13:44	0755	📂
📁 JSON	dir	—	15/06/26 13:44	0755	📂
📁 Locale	dir	—	15/06/26 13:44	0755	📂
📁 Math	dir	—	15/06/26 13:44	0755	📂
📁 Memoize	dir	—	15/06/26 13:44	0755	📂
📁 Module	dir	—	15/06/26 13:44	0755	📂
📁 Net	dir	—	15/06/26 13:44	0755	📂
📁 Params	dir	—	15/06/26 13:44	0755	📂
📁 Parse	dir	—	15/06/26 13:44	0755	📂
📁 Perl	dir	—	15/06/26 13:44	0755	📂
📁 PerlIO	dir	—	15/06/26 13:44	0755	📂
📁 Pod	dir	—	15/06/26 13:44	0755	📂
📁 Search	dir	—	15/06/26 13:44	0755	📂
📁 TAP	dir	—	15/06/26 13:44	0755	📂
📁 Term	dir	—	15/06/26 13:44	0755	📂
📁 Test	dir	—	15/06/26 13:44	0755	📂
📁 Test2	dir	—	15/06/26 13:44	0755	📂
📁 Text	dir	—	15/06/26 13:44	0755	📂
📁 Thread	dir	—	15/06/26 13:44	0755	📂
📁 Tie	dir	—	15/06/26 13:44	0755	📂
📁 Time	dir	—	15/06/26 13:44	0755	📂
📁 Unicode	dir	—	15/06/26 13:44	0755	📂
📁 User	dir	—	15/06/26 13:44	0755	📂
📁 autodie	dir	—	15/06/26 13:44	0755	📂
📁 encoding	dir	—	15/06/26 13:44	0755	📂
📁 overload	dir	—	15/06/26 13:44	0755	📂
📁 pod	dir	—	15/06/26 13:44	0755	📂
📁 unicore	dir	—	15/06/26 13:44	0755	📂
📁 version	dir	—	15/06/26 13:44	0755	📂
📁 warnings	dir	—	15/06/26 13:44	0755	📂
📄 AnyDBM_File.pm	pm	2.6 KB	25/07/25 17:26	0644	✏️ ⬇
📄 AutoLoader.pm	pm	15.4 KB	25/07/25 17:26	0644	✏️ ⬇
📄 AutoSplit.pm	pm	19.2 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Benchmark.pm	pm	30.3 KB	25/07/25 17:26	0644	✏️ ⬇
📄 CORE.pod	pod	3.1 KB	25/07/25 17:26	0644	✏️ ⬇
📄 CPAN.pm	pm	144.5 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Carp.pm	pm	35.2 KB	25/07/25 17:26	0644	✏️ ⬇
📄 DB.pm	pm	18.5 KB	25/07/25 17:26	0644	✏️ ⬇
📄 DBM_Filter.pm	pm	14 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Digest.pm	pm	11 KB	25/07/25 17:26	0644	✏️ ⬇
📄 DirHandle.pm	pm	2 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Dumpvalue.pm	pm	17.3 KB	25/07/25 17:26	0644	✏️ ⬇
📄 English.pm	pm	4.6 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Env.pm	pm	5.4 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Exporter.pm	pm	18.8 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Fatal.pm	pm	57.8 KB	25/07/25 17:26	0644	✏️ ⬇
📄 FileCache.pm	pm	5.4 KB	25/07/25 17:26	0644	✏️ ⬇
📄 FileHandle.pm	pm	6.6 KB	25/07/25 17:26	0644	✏️ ⬇
📄 FindBin.pm	pm	4.5 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Internals.pod	pod	2.5 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Memoize.pm	pm	31.8 KB	25/07/25 17:26	0644	✏️ ⬇
📄 NEXT.pm	pm	18.5 KB	25/07/25 17:26	0644	✏️ ⬇
📄 PerlIO.pm	pm	13.9 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Safe.pm	pm	24.8 KB	25/07/25 17:26	0644	✏️ ⬇
📄 SelectSaver.pm	pm	1.1 KB	25/07/25 17:26	0644	✏️ ⬇
📄 SelfLoader.pm	pm	17.3 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Symbol.pm	pm	4.8 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Test.pm	pm	29.3 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Test2.pm	pm	6.2 KB	25/07/25 17:26	0644	✏️ ⬇
📄 Thread.pm	pm	8.1 KB	25/07/25 17:26	0644	✏️ ⬇
📄 UNIVERSAL.pm	pm	6.7 KB	25/07/25 17:26	0644	✏️ ⬇
📄 XSLoader.pm	pm	11.1 KB	25/07/25 17:26	0644	✏️ ⬇
📄 _charnames.pm	pm	34.8 KB	25/07/25 17:26	0644	✏️ ⬇
📄 autodie.pm	pm	12.1 KB	25/07/25 17:26	0644	✏️ ⬇
📄 autouse.pm	pm	4.1 KB	25/07/25 17:26	0644	✏️ ⬇
📄 base.pm	pm	10.7 KB	25/07/25 17:26	0644	✏️ ⬇
📄 bigfloat.pm	pm	21.5 KB	25/07/25 17:26	0644	✏️ ⬇
📄 bigint.pm	pm	22.7 KB	25/07/25 17:26	0644	✏️ ⬇
📄 bignum.pm	pm	27.6 KB	25/07/25 17:26	0644	✏️ ⬇
📄 bigrat.pm	pm	20.6 KB	25/07/25 17:26	0644	✏️ ⬇
📄 blib.pm	pm	2 KB	25/07/25 17:26	0644	✏️ ⬇
📄 builtin.pm	pm	10.1 KB	25/07/25 17:26	0644	✏️ ⬇
📄 bytes.pm	pm	3.7 KB	25/07/25 17:26	0644	✏️ ⬇
📄 bytes_heavy.pl	pl	758 B	25/07/25 17:26	0644	✏️ ⬇
📄 charnames.pm	pm	20.6 KB	25/07/25 17:26	0644	✏️ ⬇
📄 constant.pm	pm	14.4 KB	25/07/25 17:26	0644	✏️ ⬇
📄 deprecate.pm	pm	4.9 KB	25/07/25 17:26	0644	✏️ ⬇
📄 diagnostics.pm	pm	18.9 KB	25/07/25 17:26	0644	✏️ ⬇
📄 dumpvar.pl	pl	15.2 KB	25/07/25 17:26	0644	✏️ ⬇
📄 experimental.pm	pm	8.7 KB	25/07/25 17:26	0644	✏️ ⬇
📄 feature.pm	pm	53.3 KB	25/07/25 17:26	0644	✏️ ⬇
📄 fields.pm	pm	9.3 KB	25/07/25 17:26	0644	✏️ ⬇
📄 filetest.pm	pm	3.9 KB	25/07/25 17:26	0644	✏️ ⬇
📄 if.pm	pm	3.5 KB	25/07/25 17:26	0644	✏️ ⬇
📄 integer.pm	pm	3.2 KB	25/07/25 17:26	0644	✏️ ⬇
📄 less.pm	pm	3.1 KB	25/07/25 17:26	0644	✏️ ⬇
📄 locale.pm	pm	4.8 KB	25/07/25 17:26	0644	✏️ ⬇
📄 meta_notation.pm	pm	2 KB	25/07/25 17:26	0644	✏️ ⬇
📄 ok.pm	pm	967 B	25/07/25 17:26	0644	✏️ ⬇
📄 open.pm	pm	8.3 KB	25/07/25 17:26	0644	✏️ ⬇
📄 overload.pm	pm	53.4 KB	25/07/25 17:26	0644	✏️ ⬇
📄 overloading.pm	pm	1.8 KB	25/07/25 17:26	0644	✏️ ⬇
📄 parent.pm	pm	2.6 KB	25/07/25 17:26	0644	✏️ ⬇
📄 perl5db.pl	pl	310.1 KB	25/07/25 17:26	0644	✏️ ⬇
📄 perlfaq.pm	pm	77 B	25/07/25 17:26	0644	✏️ ⬇
📄 sigtrap.pm	pm	8.5 KB	25/07/25 17:26	0644	✏️ ⬇
📄 sort.pm	pm	2.9 KB	25/07/25 17:26	0644	✏️ ⬇
📄 stable.pm	pm	4.5 KB	25/07/25 17:26	0644	✏️ ⬇
📄 strict.pm	pm	4.7 KB	25/07/25 17:26	0644	✏️ ⬇
📄 subs.pm	pm	945 B	25/07/25 17:26	0644	✏️ ⬇
📄 utf8.pm	pm	10.6 KB	25/07/25 17:26	0644	✏️ ⬇
📄 vars.pm	pm	2.4 KB	25/07/25 17:26	0644	✏️ ⬇
📄 version.pm	pm	1.9 KB	25/07/25 17:26	0644	✏️ ⬇
📄 version.pod	pod	9.6 KB	25/07/25 17:26	0644	✏️ ⬇
📄 vmsish.pm	pm	4.2 KB	25/07/25 17:26	0644	✏️ ⬇
📄 warnings.pm	pm	55.7 KB	25/07/25 17:26	0644	✏️ ⬇

✏️ Rename

🔑 Ubah Permission