need perl fuction like c #include statement for header file

mrtwice · 06-17-2003, 09:56 AM

I have several different perl programs that use the same initial variables for configuration purposes. I have all of these variables in a configuration file called config.pl.

config.pl:

Code:

#mon config settings

our $mondir = "/opt/mon";
our $mapdir = "$mondir/test/maps";

then in my program I require the file and use the variables:

prog.pl

Code:

#!/usr/bin/perl -w
#
require "./config.pl";


#open directory and store files in array
opendir( MAPS,"$mapdir");                            #mapdir is correct from required file.
my @maps = grep !/^\.\.?$/,readdir MAPS;
closedir(MAPS);

This actually works great. The problem is that I would like to

Code:

use strict

. when I do, all of my included variables need to be declared which is a pain. Is there a way to do both of these things? I have looked into packages somewhat but that seems like an aweful lot of work just to include a couple variables. Thanks!

llama_meme · 06-17-2003, 01:11 PM

I think there's a command line option for the Perl interpreter that pipes the code through the C preprocessor first, so you could literally use #include to do what you want.

Alex

mrtwice · 06-17-2003, 01:15 PM

Thanks but I don't want to do that. This program will need to be very fast. I am sure there is something in native perl. Anyone else have a suggestion?

llama_meme · 06-19-2003, 02:03 PM

It won't affect the speed of the program - compile it to bytecode and then run that.

Alex

mrtwice · 06-19-2003, 02:39 PM

Thanks,

I ended up just making a module and using "use".

llama_meme · 06-19-2003, 02:42 PM

Oh i see, lol, i should have read your post more carefully. I thought you explicitly didn't want to use modules, but that's not what you said, sorry...

Alex