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.
Dave
In reply to Re: External script to hold common procedure calls
by davido
in thread External script to hold common procedure calls
by bubbagump
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |