Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Simple Module Tutorial

by tachyon (Chancellor)
on Aug 06, 2001 at 01:30 UTC ( [id://102347] : perltutorial . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    package MyModule;
    
    use strict;
    ...
    sub func2  { return map{ uc }@_ }
    
    1;
    
  2. or download this
    #!/usr/bin/perl -w
    
    use strict;
    ...
    # use MyModule qw(:Both);
    # print func1(@list),"\n";
    # print func2(@list),"\n";
    
  3. or download this
    BEGIN { push @INC, '/my/dir' }
    # or
    BEGIN { unshift @INC, '/my/dir' }
    # or
    use lib '/my/dir';