How can I reuse some functions in a Perl script?

Question

I am facing a problem that require the reuse some of the functions within another Perl script. I am writing some test scripts. The test scripts are basically build on each other.

Say Script 1 does:

Some code to prepare the test. A. B. C. Some code to determine the success.

Then Script 2 does:

Some code to prepare the test. A. B. C. D. E. Some code to determine the success.

How can I reuse A.B.C of script 1 in script 2?

Calling script 1 from script 2 will not work because of the code to determine the success of the script. What is the best way to do this?

Thanks

Intermediate Perl covers this sort of stuff.

brian d foy
– brian d foy

2010-02-06 00:29:37 +00:00
Commented Feb 6, 2010 at 0:29 — brian d foy
– brian d foy, Commented Feb 6, 2010 at 0:29

Corey · Accepted Answer · 2010-02-05 18:25:48Z

10

Put the functions in a module and include that from both files.

See http://perldoc.perl.org/perlmod.html for more info.

answered Feb 5, 2010 at 18:25

Corey

1,5429 silver badges12 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Anonymous · Accepted Answer · 2010-02-05 19:19:56Z

5

Foo/Common.pm:

package Foo::Common;
use strict;
use warnings;
use parent 'Exporter';
our @EXPORT_OKAY = qw(frob borf);

sub frob {}
sub borf {}

1;

In some script or module, give or take a use lib to get Foo/Common.pm in @INC:

use Foo::Common qw(frob borf);
frob();

answered Feb 5, 2010 at 19:19

Anonymous

50.6k1 gold badge27 silver badges19 bronze badges

4 Comments

user195678 Over a year ago

Can you provide a link to its documentation? Thanks.

Anonymous Over a year ago

@user: Which, Exporter? Try perldoc Exporter at the command line or terminal.

daotoad Over a year ago

@user1923452345234234564563657758, perldoc.perl.org has the entire FM for your reading pleasure. perldoc.perl.org

hobbs Over a year ago

@daotoad I think you mean user8675309.

Collectives™ on Stack Overflow

How can I reuse some functions in a Perl script?

2 Answers 2

Comments

4 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

4 Comments

Your Answer

Sign up or log in

Post as a guest

Related