Another possibility is to simply
require the modules you need and
let them define subroutines and such. For example, in the program
from which my
simple command parser comes from, the commands
are loaded from a directory in which files with names starting
with 2 digist and ending with ".pl" are assumed to define the appropriate
subroutines and variables. Here's a simplified version of what
I use to load them. Notice how I also incorporate variables
declared in each module (in this case %COMMAND) into another
global hash.
# Load command modules
if (-d $cmddir) {
opendir(CMDDIR, $cmddir)
or die "Error opening '$cmddir': $!\n";
# Get only .pl files that start with 2 digits and that contain onl
+y
# alphanumerics, underscores, hyphens or dots in their names.
my @cmdfiles=map { (/^(\d{2}[-\w.]+\.pl)$/ && $1) || () } readdir(
+CMDDIR);
closedir(CMDDIR);
# Read each file and incorporate its %COMMANDS into %ALLCOMMANDS
my $cmdfile;
if (@cmdfiles) {
foreach $cmdfile (@cmdfiles) {
local %COMMANDS;
eval "require '$cmddir/$cmdfile'";
die "Error loading '$cmddir/$cmdfile': $!\n" if $@;
my ($k,$v);
# Incorporate commands
while (($k,$v)=each(%COMMANDS)) {
$ALLCOMMANDS{$k}=$v;
}
}
}
else {
# Print warning, but continue, because builtin commands can stil
+l
# be used (not very useful, but...)
warn "Warning: No command files found in directory '$cmddir'\n";
}
} else {
die "Fatal: Could not find commands dir '$cmddir'\n";
}
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.