Re: Include file

You could use the module that I am trying to use but having problems:
"AppConfig"

or you could use this (it works but is to limited for what I need):

#/usr/bin/perl

my $file = "/dir/somefile.txt";
open (CONFIG, "< $file") or die "Can't open $file";
while (<CONFIG>) {
       chomp;                  #no newline
       s/#.*//;                #no comments
       s/^\s+//;               #no leading white
       s/\s+$//;               #no trailing white
       next unless length;     #anything left?
       my ($var, $value) = split(/\s*=\s*/, $_, 2);
       $config{$var} = $value;
}
close(CONFIG);

#then print everything or a specific $var 
exit;

That should do the trick for you, if you have any luck see my positing
on AppConfig. AppConfig is used to do the same thing plus it has a lot
more features in it, I just can't get the damn thing to work. If this
works for you and you have a spare minute I would appreciate any help
that I could get on the AppConfig (two brains are better than one). If
you don't have time, don't worry about it.

jeffl


On Fri, 2002-02-01 at 09:13, gross, cedric wrote:
> I have a set of program to do which is using always same var.
>  
> So I would like to defined a small file where I defined my var (like
> $database="toto" $host="localhost" etc..) and then include it in my
> other program, but
> How to do that ?
>  
> I try "use" but it's seems that is for complete module.
> "require" seems to be for version behavior
> and include seems not be supported...
>  
> I browse doc but I found nothing..
>  
>  

• Include file by gross, cedric
• Re: Include file by jeff loetel