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

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";
[download]

./cfg/LED.cfg

[dev_lcd]
AppID=APTC_RDFG
User=AB12345

[tst_lcd]
AppID=APTC_RERF
User=AB45678

[pro_lcd]
AppID=APTC_RDHF
User=AB98765
[download]

./main.pl

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

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

Now, when I run

CFG_DIR=./cfg ./main.pl
[download]

I'm getting the expected output:

APTC_RDFG
[download]

How is your scenario different?

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re^7: How to call particular parameter from another configuration file in perl Select or Download Code

Replies are listed 'Best First'.
Re^8: How to call particular parameter from another configuration file in perl by Prakee (Initiate) on Jun 17, 2021 at 08:00 UTC
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); [download] 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.	[reply] [d/l]
Re^9: How to call particular parameter from another configuration file in perl by Corion (Patriarch) on Jun 17, 2021 at 08:03 UTC
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");` [download]	[reply] [d/l]