Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
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 having an uproarious good time at the Monastery: (13)
As of 2014-10-22 08:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (114 votes), past polls