How do I include functions from another file in my Perl script?

by

Use a module. Check out perldoc perlmod and Exporter.

In file Foo.pm

package Foo;
use strict;
use warnings;
use Exporter;

our @ISA= qw( Exporter );

# these CAN be exported.
our @EXPORT_OK = qw( export_me export_me_too );

# these are exported by default.
our @EXPORT = qw( export_me );

sub export_me {
    # stuff
}

sub export_me_too {
    # stuff
}

1;

In your main program:

use strict;
use warnings;

use Foo;  # import default list of items.

export_me( 1 );

Or to get both functions:

use strict;
use warnings;

use Foo qw( export_me export_me_too );  # import listed items

export_me( 1 );
export_me_too( 1 );

You can also import package variables, but the practice is strongly discouraged.

More Related Contents:

  1. How does a Perl program know where to find the file containing Perl module it uses?
  2. Data consolidation using Perl [closed]
  3. What is meaning of defined keyword [closed]
  4. How can i do this in perl, shortcut truthtable [closed]
  5. How to retrieve the values of required keys in Perl [closed]
  6. Perl: Meaning of double squared brackets after a string?
  7. What does this HTML::Parser() code do in Perl? [closed]
  8. Why use strict and warnings?
  9. Why does modern Perl avoid UTF-8 by default?
  10. Why is three-argument open calls with autovivified filehandles a Perl best practice?
  11. What’s the difference between Perl’s backticks, system, and exec?
  12. How can I use CPAN as a non-root user?
  13. How can I parse dates and convert time zones in Perl?
  14. Which one is good practice, a lexical filehandle or a typeglob?
  15. How do I tell if a variable has a numeric value in Perl?
  16. Using perl’s `system`
  17. Perl memory usage profiling and leak detection?
  18. How should I use the “my” keyword in Perl?
  19. Global symbol requires explicit package name
  20. How can I store the result of a system command in a Perl variable?
  21. How can I check if a file exists in Perl?
  22. Using Encode::encode with “utf8”
  23. How can I start an interactive console for Perl?
  24. What does =~ do in Perl? [closed]
  25. How to convert letters with accents, umlauts, etc to their ASCII counterparts in Perl?
  26. Do you use an exception class in your Perl programs? Why or why not?
  27. What does shift() do in Perl?
  28. How can I extract text from a PDF file in Perl?
  29. How do I retrieve the terminal width in Perl?
  30. How do I tell CPAN to install all dependencies?

Leave a Comment