File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5

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: Symbol.pm

package Symbol;

=head1 NAME

Symbol - manipulate Perl symbols and their names

=head1 SYNOPSIS

use Symbol;

$sym = gensym;
    open($sym, '<', "filename");
    $_ = <$sym>;
    # etc.

ungensym $sym;      # no effect

# replace *FOO{IO} handle but not $FOO, %FOO, etc.
    *FOO = geniosym;

print qualify("x"), "\n";              # "main::x"
    print qualify("x", "FOO"), "\n";       # "FOO::x"
    print qualify("BAR::x"), "\n";         # "BAR::x"
    print qualify("BAR::x", "FOO"), "\n";  # "BAR::x"
    print qualify("STDOUT", "FOO"), "\n";  # "main::STDOUT" (global)
    print qualify(\*x), "\n";              # returns \*x
    print qualify(\*x, "FOO"), "\n";       # returns \*x

use strict refs;
    print { qualify_to_ref $fh } "foo!\n";
    $ref = qualify_to_ref $name, $pkg;

use Symbol qw(delete_package);
    delete_package('Foo::Bar');
    print "deleted\n" unless exists $Foo::{'Bar::'};

=head1 DESCRIPTION

C<Symbol::gensym> creates an anonymous glob and returns a reference
to it.  Such a glob reference can be used as a file or directory
handle.

For backward compatibility with older implementations that didn't
support anonymous globs, C<Symbol::ungensym> is also provided.
But it doesn't do anything.

C<Symbol::geniosym> creates an anonymous IO handle.  This can be
assigned into an existing glob without affecting the non-IO portions
of the glob.

C<Symbol::qualify> turns unqualified symbol names into qualified
variable names (e.g. "myvar" -E<gt> "MyPackage::myvar").  If it is given a
second parameter, C<qualify> uses it as the default package;
otherwise, it uses the package of its caller.  Regardless, global
variable names (e.g. "STDOUT", "ENV", "SIG") are always qualified with
"main::".

Qualification applies only to symbol names (strings).  References are
left unchanged under the assumption that they are glob references,
which are qualified by their nature.

C<Symbol::qualify_to_ref> is just like C<Symbol::qualify> except that it
returns a glob ref rather than a symbol name, so you can use the result
even if C<use strict 'refs'> is in effect.

C<Symbol::delete_package> wipes out a whole package namespace.  Note
this routine is not exported by default--you may want to import it
explicitly.

=head1 BUGS

C<Symbol::delete_package> is a bit too powerful. It undefines every symbol that
lives in the specified package. Since perl, for performance reasons, does not
perform a symbol table lookup each time a function is called or a global
variable is accessed, some code that has already been loaded and that makes use
of symbols in package C<Foo> may stop working after you delete C<Foo>, even if
you reload the C<Foo> module afterwards.

=cut

BEGIN { require 5.005; }

require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(gensym ungensym qualify qualify_to_ref);
@EXPORT_OK = qw(delete_package geniosym);

$VERSION = '1.08';

my $genpkg = "Symbol::";
my $genseq = 0;

my %global = map {$_ => 1} qw(ARGV ARGVOUT ENV INC SIG STDERR STDIN STDOUT);

#
# Note that we never _copy_ the glob; we just make a ref to it.
# If we did copy it, then SVf_FAKE would be set on the copy, and
# glob-specific behaviors (e.g. C<*$ref = \&func>) wouldn't work.
#
sub gensym () {
    my $name = "GEN" . $genseq++;
    my $ref = \*{$genpkg . $name};
    delete $$genpkg{$name};
    $ref;
}

sub geniosym () {
    my $sym = gensym();
    # force the IO slot to be filled
    select(select $sym);
    *$sym{IO};
}

sub ungensym ($) {}

sub qualify ($;$) {
    my ($name) = @_;
    if (!ref($name) && index($name, '::') == -1 && index($name, "'") == -1) {
	my $pkg;
	# Global names: special character, "^xyz", or other. 
	if ($name =~ /^(([^a-z])|(\^[a-z_]+))\z/i || $global{$name}) {
	    # RGS 2001-11-05 : translate leading ^X to control-char
	    $name =~ s/^\^([a-z_])/'qq(\c'.$1.')'/eei;
	    $pkg = "main";
	}
	else {
	    $pkg = (@_ > 1) ? $_[1] : caller;
	}
	$name = $pkg . "::" . $name;
    }
    $name;
}

sub qualify_to_ref ($;$) {
    return \*{ qualify $_[0], @_ > 1 ? $_[1] : caller };
}

#
# of Safe.pm lineage
#
sub delete_package ($) {
    my $pkg = shift;

# expand to full symbol table name if needed

unless ($pkg =~ /^main::.*::$/) {
        $pkg = "main$pkg"	if	$pkg =~ /^::/;
        $pkg = "main::$pkg"	unless	$pkg =~ /^main::/;
        $pkg .= '::'		unless	$pkg =~ /::$/;
    }

my($stem, $leaf) = $pkg =~ m/(.*::)(\w+::)$/;
    my $stem_symtab = *{$stem}{HASH};
    return unless defined $stem_symtab and exists $stem_symtab->{$leaf};

# free all the symbols in the package

my $leaf_symtab = *{$stem_symtab->{$leaf}}{HASH};
    foreach my $name (keys %$leaf_symtab) {
        undef *{$pkg . $name};
    }

# delete the symbol table

%$leaf_symtab = ();
    delete $stem_symtab->{$leaf};
}

X7ROOT File Manager

Editing: Symbol.pm

Upload File

Create Folder