home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _4950cfa13a48331c437f648dddc498c5 < prev    next >
Text File  |  2000-03-23  |  4KB  |  100 lines
  1.  
  2. <HTML>
  3. <HEAD>
  4. <TITLE>Symbol - manipulate Perl symbols and their names</TITLE>
  5. <LINK REL="stylesheet" HREF="../Active.css" TYPE="text/css">
  6. <LINK REV="made" HREF="mailto:">
  7. </HEAD>
  8.  
  9. <BODY>
  10. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  11. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  12. <STRONG><P CLASS=block> Symbol - manipulate Perl symbols and their names</P></STRONG>
  13. </TD></TR>
  14. </TABLE>
  15.  
  16. <A NAME="__index__"></A>
  17. <!-- INDEX BEGIN -->
  18.  
  19. <UL>
  20.  
  21.     <LI><A HREF="#name">NAME</A></LI><LI><A HREF="#supportedplatforms">SUPPORTED PLATFORMS</A></LI>
  22.  
  23.     <LI><A HREF="#synopsis">SYNOPSIS</A></LI>
  24.     <LI><A HREF="#description">DESCRIPTION</A></LI>
  25. </UL>
  26. <!-- INDEX END -->
  27.  
  28. <HR>
  29. <P>
  30. <H1><A NAME="name">NAME</A></H1>
  31. <P>Symbol - manipulate Perl symbols and their names</P>
  32. <P>
  33. <HR>
  34. <H1><A NAME="supportedplatforms">SUPPORTED PLATFORMS</A></H1>
  35. <UL>
  36. <LI>Linux</LI>
  37. <LI>Solaris</LI>
  38. <LI>Windows</LI>
  39. </UL>
  40. <HR>
  41. <H1><A NAME="synopsis">SYNOPSIS</A></H1>
  42. <PRE>
  43.     use Symbol;</PRE>
  44. <PRE>
  45.     $sym = gensym;
  46.     open($sym, "filename");
  47.     $_ = <$sym>;
  48.     # etc.</PRE>
  49. <PRE>
  50.     ungensym $sym;      # no effect</PRE>
  51. <PRE>
  52.     print qualify("x"), "\n";              # "Test::x"
  53.     print qualify("x", "FOO"), "\n"        # "FOO::x"
  54.     print qualify("BAR::x"), "\n";         # "BAR::x"
  55.     print qualify("BAR::x", "FOO"), "\n";  # "BAR::x"
  56.     print qualify("STDOUT", "FOO"), "\n";  # "main::STDOUT" (global)
  57.     print qualify(\*x), "\n";              # returns \*x
  58.     print qualify(\*x, "FOO"), "\n";       # returns \*x</PRE>
  59. <PRE>
  60.     use strict refs;
  61.     print { qualify_to_ref $fh } "foo!\n";
  62.     $ref = qualify_to_ref $name, $pkg;</PRE>
  63. <PRE>
  64.     use Symbol qw(delete_package);
  65.     delete_package('Foo::Bar');
  66.     print "deleted\n" unless exists $Foo::{'Bar::'};</PRE>
  67. <P>
  68. <HR>
  69. <H1><A NAME="description">DESCRIPTION</A></H1>
  70. <P><CODE>Symbol::gensym</CODE> creates an anonymous glob and returns a reference
  71. to it.  Such a glob reference can be used as a file or directory
  72. handle.</P>
  73. <P>For backward compatibility with older implementations that didn't
  74. support anonymous globs, <CODE>Symbol::ungensym</CODE> is also provided.
  75. But it doesn't do anything.</P>
  76. <P><CODE>Symbol::qualify</CODE> turns unqualified symbol names into qualified
  77. variable names (e.g. ``myvar'' -> ``MyPackage::myvar'').  If it is given a
  78. second parameter, <CODE>qualify</CODE> uses it as the default package;
  79. otherwise, it uses the package of its caller.  Regardless, global
  80. variable names (e.g. ``STDOUT'', ``ENV'', ``SIG'') are always qualified with
  81. ``main::''.</P>
  82. <P>Qualification applies only to symbol names (strings).  References are
  83. left unchanged under the assumption that they are glob references,
  84. which are qualified by their nature.</P>
  85. <P><CODE>Symbol::qualify_to_ref</CODE> is just like <CODE>Symbol::qualify</CODE> except that it
  86. returns a glob ref rather than a symbol name, so you can use the result
  87. even if <CODE>use strict 'refs'</CODE> is in effect.</P>
  88. <P><CODE>Symbol::delete_package</CODE> wipes out a whole package namespace.  Note
  89. this routine is not exported by default--you may want to import it
  90. explicitly.</P>
  91. <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>
  92. <TR><TD CLASS=block VALIGN=MIDDLE WIDTH=100% BGCOLOR="#cccccc">
  93. <STRONG><P CLASS=block> Symbol - manipulate Perl symbols and their names</P></STRONG>
  94. </TD></TR>
  95. </TABLE>
  96.  
  97. </BODY>
  98.  
  99. </HTML>
  100.