Package declarations and subroutine : Package « Language Basics « Perl






  1. Perl
  2. Language Basics
  3. Package

Package declarations and subroutine

  

$name="out";
$num=1;
package myPackage;      
sub welcome {
     print "Who is your pal? ";
     chomp($name=<STDIN>);
     print "Welcome $name!\n";
     print "\$num is $num.\n";   
     print "Where is $main::name?\n\n";
}
package main;       
&friend::welcome;   
print "main package \$name is $name\n";
print "friend package, Bye ",$friend::name,"\n";
print "Bye $name\n\n";

package anotherPackage;

$name="AAA";
print "Hi $name.\n";
print "$::name and $friend::name\n";








Related examples in the same category

1.A package is a separate name space for variables to reside in.
2.Contents of the symbol table for the main package.
3.Default package is main
4.Define variables with the same name in different package
5.Module::get_scalar()
6.Out value scope
7.Reference variable by package name
8.Requires the package created above and calls the subroutine declared within it:
9.Scope change
10.Switches between packages.
11.This code should be stored in the file Mymodule.pm.
12.Using the package keyword to change the package context
13.You have to tell Perl which packages you intend to use, with the use command:
14.Your package