File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5

?? ..
?? AnyDBM_File.pm(2.56 KB)
?? Attribute
?? AutoLoader.pm(15.43 KB)
?? AutoSplit.pm(19.18 KB)
?? B
?? Benchmark.pm(30.3 KB)
?? CORE.pod(3.11 KB)
?? CPAN
?? Class
?? Compress
?? Config
?? DB.pm(18.48 KB)
?? DBM_Filter
?? DBM_Filter.pm(14.05 KB)
?? Devel
?? DirHandle.pm(1.52 KB)
?? Dumpvalue.pm(17.14 KB)
?? English.pm(4.65 KB)
?? ExtUtils
?? File
?? FileCache.pm(5.44 KB)
?? FileHandle.pm(6.63 KB)
?? FindBin.pm(4.45 KB)
?? Getopt
?? I18N
?? IO
?? IPC
?? Internals.pod(2.52 KB)
?? Locale
?? Math
?? Memoize
?? Memoize.pm(35.34 KB)
?? Module
?? NEXT.pm(18.4 KB)
?? Net
?? PerlIO.pm(10.21 KB)
?? Pod
?? Safe.pm(24.49 KB)
?? Search
?? SelectSaver.pm(1.05 KB)
?? SelfLoader.pm(17.28 KB)
?? Symbol.pm(4.69 KB)
?? Term
?? Test.pm(29.35 KB)
?? Text
?? Thread
?? Thread.pm(8.09 KB)
?? Tie
?? Time
?? UNIVERSAL.pm(6.44 KB)
?? URI
?? URI.pm(33.97 KB)
?? Unicode
?? User
?? XSLoader.pm(11 KB)
?? _charnames.pm(32.39 KB)
?? autouse.pm(4.14 KB)
?? base.pm(10.72 KB)
?? blib.pm(2.04 KB)
?? bytes.pm(3.67 KB)
?? bytes_heavy.pl(758 B)
?? charnames.pm(20.38 KB)
?? deprecate.pm(3.01 KB)
?? diagnostics.pm(18.59 KB)
?? dumpvar.pl(15.19 KB)
?? encoding
?? feature.pm(16.68 KB)
?? fields.pm(9.27 KB)
?? filetest.pm(3.91 KB)
?? if.pm(3.26 KB)
?? integer.pm(3.18 KB)
?? less.pm(3.13 KB)
?? locale.pm(4.74 KB)
?? meta_notation.pm(2.07 KB)
?? open.pm(7.83 KB)
?? overload
?? overload.pm(52.06 KB)
?? overloading.pm(1.77 KB)
?? perl5db.pl(309 KB)
?? pod
?? sigtrap.pm(7.43 KB)
?? sort.pm(5.94 KB)
?? strict.pm(4.63 KB)
?? subs.pm(848 B)
?? unicore
?? utf8.pm(8.9 KB)
?? utf8_heavy.pl(30.87 KB)
?? vars.pm(2.36 KB)
?? vendor_perl
?? vmsish.pm(4.21 KB)
?? warnings
?? warnings.pm(43.71 KB)

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

return $string;
}
1

X7ROOT File Manager

Editing: meta_notation.pm

Upload File

Create Folder