Admin

name	type	size	perms	modified	actions
[parent directory]
Attribute/	dir	-	0755	2026-08-19 08:10:09
B/	dir	-	0755	2026-08-18 11:12:42
Class/	dir	-	0755	2026-08-18 11:12:42
Compress/	dir	-	0755	2026-08-19 08:10:07
Config/	dir	-	0755	2026-08-19 08:10:09
CPAN/	dir	-	0755	2026-08-19 08:40:21
DBM_Filter/	dir	-	0755	2026-08-19 08:10:07
Devel/	dir	-	0755	2026-08-19 08:10:07
encoding/	dir	-	0755	2026-08-19 08:10:08
ExtUtils/	dir	-	0755	2026-08-19 08:10:14
File/	dir	-	0755	2026-08-19 08:10:07
Getopt/	dir	-	0755	2026-08-18 11:12:42
I18N/	dir	-	0755	2026-08-19 08:10:09
IO/	dir	-	0755	2026-08-19 08:10:07
IPC/	dir	-	0755	2026-08-18 11:12:42
Locale/	dir	-	0755	2026-08-19 08:10:05
Math/	dir	-	0755	2026-08-19 08:10:05
Memoize/	dir	-	0755	2026-08-19 08:10:08
Module/	dir	-	0755	2026-08-19 08:10:08
Net/	dir	-	0755	2026-08-19 08:10:08
overload/	dir	-	0755	2026-08-18 11:12:42
PerlIO/	dir	-	0755	2026-08-18 11:12:42
Pod/	dir	-	0755	2026-08-19 08:10:08
pod/	dir	-	0755	2026-08-19 08:10:08
Search/	dir	-	0755	2026-08-19 08:10:08
Term/	dir	-	0755	2026-08-19 08:10:08
Text/	dir	-	0755	2026-08-19 08:10:08
Thread/	dir	-	0755	2026-08-19 08:10:08
Tie/	dir	-	0755	2026-08-19 08:10:08
Time/	dir	-	0755	2026-08-19 08:10:08
Unicode/	dir	-	0755	2026-08-19 08:10:08
unicore/	dir	-	0755	2026-08-18 11:12:42
URI/	dir	-	0755	2026-08-18 11:12:42
User/	dir	-	0755	2026-08-19 08:10:05
vendor_perl/	dir	-	0755	2026-08-19 08:37:53
warnings/	dir	-	0755	2026-08-18 11:12:42
_charnames.pm	file	35,679 B	0644	2025-07-10 00:00:00	edit
AnyDBM_File.pm	file	2,618 B	0644	2025-07-10 00:00:00	edit
AutoLoader.pm	file	15,797 B	0644	2025-07-10 00:00:00	edit
AutoSplit.pm	file	19,637 B	0644	2025-07-10 00:00:00	edit
autouse.pm	file	4,238 B	0644	2025-07-10 00:00:00	edit
base.pm	file	10,961 B	0644	2025-07-10 00:00:00	edit
Benchmark.pm	file	31,023 B	0644	2025-07-10 00:00:00	edit
blib.pm	file	2,062 B	0644	2025-07-10 00:00:00	edit
builtin.pm	file	13,172 B	0644	2025-07-10 00:00:00	edit
bytes.pm	file	3,856 B	0644	2025-07-10 00:00:00	edit
charnames.pm	file	21,049 B	0644	2025-07-10 00:00:00	edit
CORE.pod	file	3,188 B	0644	2025-07-10 00:00:00	edit
DB.pm	file	18,922 B	0644	2025-07-10 00:00:00	edit
DBM_Filter.pm	file	14,385 B	0644	2025-07-10 00:00:00	edit
deprecate.pm	file	4,603 B	0644	2025-07-10 00:00:00	edit
diagnostics.pm	file	19,344 B	0644	2025-07-10 00:00:00	edit
DirHandle.pm	file	2,085 B	0644	2025-07-10 00:00:00	edit
Dumpvalue.pm	file	17,668 B	0644	2025-07-10 00:00:00	edit
dumpvar.pl	file	15,555 B	0644	2025-07-10 00:00:00	edit
English.pm	file	4,761 B	0644	2025-07-10 00:00:00	edit
feature.pm	file	31,017 B	0644	2025-07-10 00:00:00	edit
fields.pm	file	9,465 B	0644	2025-07-10 00:00:00	edit
FileCache.pm	file	5,549 B	0644	2025-07-10 00:00:00	edit
FileHandle.pm	file	6,805 B	0644	2025-07-10 00:00:00	edit
filetest.pm	file	4,003 B	0644	2025-07-10 00:00:00	edit
FindBin.pm	file	4,800 B	0644	2025-07-10 00:00:00	edit
if.pm	file	3,631 B	0644	2025-07-10 00:00:00	edit
integer.pm	file	3,254 B	0644	2025-07-10 00:00:00	edit
Internals.pod	file	2,941 B	0644	2025-07-10 00:00:00	edit
less.pm	file	3,204 B	0644	2025-07-10 00:00:00	edit
locale.pm	file	5,153 B	0644	2025-07-10 00:00:00	edit
Memoize.pm	file	32,586 B	0644	2025-07-10 00:00:00	edit
meta_notation.pm	file	2,069 B	0644	2025-07-10 00:00:00	edit
NEXT.pm	file	18,982 B	0644	2025-07-10 00:00:00	edit
open.pm	file	8,498 B	0644	2025-07-10 00:00:00	edit
overload.pm	file	54,723 B	0644	2025-07-10 00:00:00	edit
overloading.pm	file	1,808 B	0644	2025-07-10 00:00:00	edit
perl5db.pl	file	317,639 B	0644	2025-07-10 00:00:00	edit
PerlIO.pm	file	14,259 B	0644	2025-07-10 00:00:00	edit
Safe.pm	file	25,399 B	0644	2025-07-10 00:00:00	edit
SelectSaver.pm	file	1,076 B	0644	2025-07-10 00:00:00	edit
SelfLoader.pm	file	17,684 B	0644	2025-07-10 00:00:00	edit
sigtrap.pm	file	8,733 B	0644	2025-07-10 00:00:00	edit
sort.pm	file	2,992 B	0644	2025-07-10 00:00:00	edit
strict.pm	file	5,152 B	0644	2025-07-10 00:00:00	edit
subs.pm	file	945 B	0644	2025-07-10 00:00:00	edit
Symbol.pm	file	4,905 B	0644	2025-07-10 00:00:00	edit
Test.pm	file	30,042 B	0644	2025-07-10 00:00:00	edit
Thread.pm	file	8,289 B	0644	2025-07-10 00:00:00	edit
UNIVERSAL.pm	file	6,464 B	0644	2025-07-10 00:00:00	edit
URI.pm	file	41,632 B	0644	2024-02-09 15:01:28	edit
utf8.pm	file	10,888 B	0644	2025-07-10 00:00:00	edit
vars.pm	file	2,458 B	0644	2025-07-10 00:00:00	edit
vmsish.pm	file	4,313 B	0644	2025-07-10 00:00:00	edit
warnings.pm	file	57,793 B	0644	2025-07-10 00:00:00	edit
XSLoader.pm	file	11,399 B	0644	2025-07-10 00:00:00	edit

editing: meta_notation.pm

use strict;
use warnings;

# A tiny private library routine which is a helper to several Perl core
# modules, to allow a paradigm to be implemented in a single place.  The name,
# contents, or even the existence of this file may be changed at any time and
# are NOT to be used by anything outside the Perl core.

sub _meta_notation ($) {

# Returns a copy of the input string with the nonprintable characters
    # below 0x100 changed into printables.  Any ASCII printables or above 0xFF
    # are unchanged.  (XXX Probably above-Latin1 characters should be
    # converted to \X{...})
    #
    # \0 .. \x1F (which are "\c@" .. "\c_") are changed into ^@, ^A, ^B, ...
    # ^Z, ^[, ^\, ^], ^^, ^_
    # \c? is changed into ^?.
    #
    # The above accounts for all the ASCII-range nonprintables.
    #
    # On ASCII platforms, the upper-Latin1-range characters are converted to
    # Meta notation, so that \xC1 becomes 'M-A', \xE2 becomes 'M-b', etc.
    # This is how it always has worked, so is continued that way for backwards
    # compatibility.  The range \x80 .. \x9F becomes M-^@ .. M-^A, M-^B, ...
    # M-^Z, M-^[, M-^\, M-^], M-^, M-^_
    #
    # On EBCDIC platforms, the upper-Latin1-range characters are converted
    # into '\x{...}'  Meta notation doesn't make sense on EBCDIC platforms
    # because the ASCII-range printables are a mixture of upper bit set or
    # not.  [A-Za-Z0-9] all have the upper bit set.  The underscore likely
    # doesn't; and other punctuation may or may not.  There's no simple
    # pattern.

my $string = shift;

$string =~ s/([\0-\037])/
               sprintf("^%c",utf8::unicode_to_native(ord($1)^64))/xeg;
    $string =~ s/\c?/^?/g;
    if (ord("A") == 65) {
        $string =~ s/([\200-\237])/sprintf("M-^%c",(ord($1)&0177)^64)/eg;
        $string =~ s/([\240-\377])/sprintf("M-%c"  ,ord($1)&0177)/eg;
    }
    else {
        # Leave alone things above \xff
        $string =~ s/( (?[ [\x00-\xFF] & [:^print:]])) /
                  sprintf("\\x{%X}", ord($1))/xaeg;
    }

return $string;
}
1

cancel