Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

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 Common_Code.pm 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.


Comment on Re: What's the best way to share code in different files?
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://154527]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (8)
As of 2015-07-08 04:37 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (94 votes), past polls