Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: What's the best way to share code in different files?

by Util (Priest)
on Mar 26, 2002 at 22:48 UTC ( #154527=note: print w/replies, xml ) Need Help??

in reply to What's the best way to share code in different files?

Like it or not, modules are the best way. Modules need not be difficult; you probably need only a small fraction of the many options available to a module author. To get started, see tachyon's Simple Module Tutorial, including the other monks' comments at the bottom. If the tutorial is too simple, try perlman:perlmod. If too complex, try my skeleton code below. I have pared it down to the bare essentials for illustration only; it runs correctly, but is missing the seat-belts (use strict) and air-bags (use warnings), so don't take it out of the parking lot!

Use h2xs -n Common_Code -AX to generate a real module template once you are more comfortable with how a module works.

# this is in file package Common_Code; sub log_debug_message { print "DEBUG: I see ", join(", ", @_), ".\n"; } 1;
Here's a script which uses it:
#!/usr/bin/perl use Common_Code; my( $a1, $b2, $c3 ) = qw( red blue green ); Common_Code::log_debug_message( $a1, $b2, $c3 );
The output:
DEBUG: I see red, blue, green.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://154527]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2018-05-21 07:31 GMT
Find Nodes?
    Voting Booth?