fig06_17.pl

来自「PERL语言资料 可以用于PERL程序设计」· PL 代码 · 共 40 行

#!usr/bin/perl
#Fig 6.17: fig06_17.pl
# Demonstrating packages.

# make FirstPackage.pm available to this program
require FirstPackage;

# define a package global variable in this program
our $variable = "happy";

# display values from the main package 
print "From main package:\n";
print "\$variable = $variable\n";
print "\$main::variable = $main::variable\n";

# display values from FirstPackage
print "\nFrom FirstPackage:\n";
print "\$FirstPackage::variable = $FirstPackage::variable\n";
print "\$FirstPackage::secret = $FirstPackage::secret\n";

# use a subroutine in FirstPackage to display the 
# values of the variables in that package
FirstPackage::displayFirstPackageVariables();

###########################################################################
#  (C) Copyright 2001 by Deitel & Associates, Inc. and Prentice Hall.     #
#  All Rights Reserved.                                                   #
#                                                                         #
#  DISCLAIMER: The authors and publisher of this book have used their     #
#  best efforts in preparing the book. These efforts include the          #
#  development, research, and testing of the theories and programs        #
#  to determine their effectiveness. The authors and publisher make       #
#  no warranty of any kind, expressed or implied, with regard to these    #
#  programs or to the documentation contained in these books. The authors #
#  and publisher shall not be liable in any event for incidental or       #
#  consequential damages in connection with, or arising out of, the       #
#  furnishing, performance, or use of these programs.                     #
###########################################################################