You might be desiring what Perl calls packages and modules.
Start by creating a file called Mysubs.pm. In this file, put the following:
package Mysubs;
use strict;
use warnings;
use base qw( Exporter );
our @EXPORT = qw( fee fi fo fum );
sub fee {
print "You called Mysubs::fee()\n";
}
sub fi {
print "You called Mysubs::fi()\n";
}
sub fo {
print "You called Mysubs::fo()\n";
}
sub fum {
print "You called Mysubs::fum()\n";
}
1;
Save that file in your script's working directory for simplicity for now. ...later you'll want to do something else with it and modify @INC to deal with that, but for now just save it in the same path as the main script.
Next create another script as follows:
#!/usr/bin/perl
use strict;
use warnings;
use Mysubs;
fee();
fi();
fo();
fum();
Presto, it works. There are much more elegant constructs you can use as you get more familiar with modules and packages; exporting only those subs you need, object oriented design, and so on. But this should get you started. Our Tutorials section has a lot of good information to keep you busy for awhile. And merlyn's Aplaca book, "Learning Perl Objects, References & Modules", published by O'Reilly & Assoc. is a first class introduction and detailed course in Perl's modules and object oriented world.
|