Advanced File Manager

✏️ Mengedit: 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 {
        no warnings 'experimental::regex_sets';
        # Leave alone things above \xff
        $string =~ s/( (?[ [\x00-\xFF] & [:^print:]])) /
                  sprintf("\\x{%X}", ord($1))/xaeg;
    }

return $string;
}
1

❌ Batal

Nama	Ukuran	Dimodifikasi	Permission	Aksi
📁 Attribute	-	2025-09-22 07:04	0755
📁 B	-	2025-09-22 07:02	0755
📁 Capture	-	2025-09-22 22:58	0755
📁 Class	-	2025-09-22 07:02	0755
📁 Compress	-	2026-06-30 12:44	0755
📁 Config	-	2025-09-22 07:04	0755
📁 CPAN	-	2025-09-22 07:15	0755
📁 DBM_Filter	-	2025-09-22 07:04	0755
📁 Devel	-	2025-09-22 07:04	0755
📁 encoding	-	2025-09-22 07:04	0755
📁 ExtUtils	-	2025-09-22 07:04	0755
📁 File	-	2026-06-30 12:44	0755
📁 Getopt	-	2025-09-22 07:02	0755
📁 I18N	-	2025-09-22 07:04	0755
📁 IO	-	2026-06-29 05:31	0755
📁 IPC	-	2025-09-22 07:02	0755
📁 Locale	-	2025-09-22 07:04	0755
📁 Math	-	2025-09-22 07:04	0755
📁 Memoize	-	2025-09-22 07:04	0755
📁 Module	-	2025-09-22 07:04	0755
📁 Net	-	2025-09-22 07:04	0755
📁 overload	-	2025-09-22 07:02	0755
📁 pod	-	2025-09-22 07:04	0755
📁 Pod	-	2025-09-22 07:04	0755
📁 Search	-	2025-09-22 07:04	0755
📁 Term	-	2025-09-22 07:04	0755
📁 TeXLive	-	2025-09-22 22:58	0755
📁 Text	-	2025-09-22 07:04	0755
📁 Thread	-	2025-09-22 07:04	0755
📁 Tie	-	2025-09-22 07:04	0755
📁 Time	-	2025-09-22 07:04	0755
📁 Unicode	-	2025-09-22 07:04	0755
📁 unicore	-	2025-09-22 07:02	0755
📁 URI	-	2025-02-25 15:29	0755
📁 User	-	2025-09-22 07:04	0755
📁 vendor_perl	-	2025-09-22 23:05	0755
📁 warnings	-	2025-09-22 07:02	0755
📎 _charnames.pm	33.4 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 AnyDBM_File.pm	2.6 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 AutoLoader.pm	15.4 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 AutoSplit.pm	19.2 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 autouse.pm	4.1 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 base.pm	10.7 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 Benchmark.pm	30.3 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 blib.pm	2 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 bytes.pm	3.7 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 bytes_heavy.pl	758 B	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 charnames.pm	20.4 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 CORE.pod	3.1 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 DB.pm	18.5 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 DBM_Filter.pm	14 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 deprecate.pm	4.5 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 diagnostics.pm	18.8 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 DirHandle.pm	2 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 Dumpvalue.pm	17.3 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 dumpvar.pl	15.2 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 English.pm	4.6 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 feature.pm	18.6 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 fields.pm	9.3 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 FileCache.pm	5.4 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 FileHandle.pm	6.6 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 filetest.pm	3.9 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 FindBin.pm	4.5 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 if.pm	3.5 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 integer.pm	3.2 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 Internals.pod	2.5 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 less.pm	3.1 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 locale.pm	4.7 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 Memoize.pm	35.3 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 meta_notation.pm	2.1 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 NEXT.pm	18.5 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 open.pm	8.3 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 overload.pm	52.1 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 overloading.pm	1.8 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 perl5db.pl	309.7 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 PerlIO.pm	14.1 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 Safe.pm	24.8 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 SelectSaver.pm	1.1 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 SelfLoader.pm	17.3 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 sigtrap.pm	8.5 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 sort.pm	3.8 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 strict.pm	4.6 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 subs.pm	901 B	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 Symbol.pm	4.7 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 Test.pm	29.3 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 Thread.pm	8.1 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 UNIVERSAL.pm	6.4 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 URI.pm	34.1 KB	2021-03-03 15:16	0644	✏️ Edit ⬇
📎 utf8.pm	10.2 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 vars.pm	2.4 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 vmsish.pm	4.2 KB	2025-07-28 03:54	0644	✏️ Edit ⬇
📎 warnings.pm	49.4 KB	2025-07-28 03:53	0644	✏️ Edit ⬇
📎 XSLoader.pm	11 KB	2025-07-28 03:53	0644	✏️ Edit ⬇

📂 Advanced File Manager

✏️ Mengedit: meta_notation.pm

✍️ Rename: