6
ˆ
ƒ M·_•I|¥‰ÓM dœv ©ƒ&íK<óo¬ À¿ ¯
Index of /FSS-BCZ/root/sys/dev/char/4:50/subsystem/tty25
Index of /FSS-BCZ/root/sys/dev/char/4:50/subsystem/tty25
ˆ
ƒ `{¾À¿ ä
Index of /configBNE/Jump/0-lunacomadmin/FSS-BCZ/root/proc/sys/net/ipv6/conf
Index of /configBNE/Jump/0-lunacomadmin/FSS-BCZ/root/proc/sys/net/ipv6/conf
F ˆl–Ðz¾” Jn-jq@5p ¸ËªbÑ¿Â
ƒi×ß_‹ uÐb
&=LV[(a–Ðz¾”Šj"Tâ€jã-\ŠbÑ¿Â ¿ 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