Re^7: How to call particular parameter from another configuration file in perl

[choroba]

I created the following structure of files and directories:

./CA.pl

#!/usr/bin/perl
use warnings;
use strict;

use Config::Simple;

my $confdir = $ENV{CFG_DIR};
my $conffile = 'LED.cfg';
my $pillar = 'dev';

my $led_cfg = "$confdir/$conffile";

'Config::Simple'->import_from($led_cfg, \ my %Config);
my $ap_id = $Config{ $pillar . '_lcd.AppID' };
print "$ap_id";

./cfg/LED.cfg

[dev_lcd]
AppID=APTC_RDFG
User=AB12345

[tst_lcd]
AppID=APTC_RERF
User=AB45678

[pro_lcd]
AppID=APTC_RDHF
User=AB98765

./main.pl

#!/usr/bin/perl
use warnings;
use strict;

my $pwd = qx{./CA.pl};
print "$pwd\n";

Now, when I run

CFG_DIR=./cfg ./main.pl

I'm getting the expected output:

APTC_RDFG

How is your scenario different?

[Prakee]

Thanks for your response. Now i able to narrow down the issue. I am getting desired output if i execute the script under /amex/lcd directory. If i copy the script to /amex/log/ directory and execute the script, i am getting below error.

$pwd
/amex/lcd
$./CA.pl
<password>  ## printing password as expected
$cd /amex/log
$./CA.pl    ## not printing the password from different location other
+ than /amex/lcd
Can't call method "param" on an undefined value at
        /ontw/etc/lcd/PWCCAauth_succ.pl line 108 (#1)
    (F) You used the syntax of a method call, but the slot filled by t
+he
    object reference or package name contains an undefined value.  Som
+ething
    like this will reproduce the error:

 

        $BADREF = undef;
        process $BADREF 1,2,3;
        $BADREF->process(1,2,3);

Am i missing something that you can help me with ? If i sort out this issue of getting the password executed from all directory other than /amex/lcd, then i will able to get main.pl executed without issue. Thanks in advance.

[Corion]

The path you give to Config::Simple is relative to the current directory. It is not relative to where your script sits.

If you want to use a config file from a given directory, you need to specify that directory explicitly in the name of the config file, like:

my $config = Config::Simple->new("/path/to/config.ini");