Блог

Я пытаюсь выполнить сценарий оболочки внутри сценария perl. Я могу выполнить сценарий оболочки, если вручную назначу переменную. Но я хотел бы вызвать переменную вне скрипта, который находится в файле конфигурации.

Как выполнить скрипт? Ниже приведены мои примеры команд.

 my $confdir = $ENV{CFG_DIR};  ## Directory where configuration file resides 
my $configfile = 'LED.cfg';   ## Configuration file
my $LEDcfg = new Config::Simple( filename => "$confdir/$conffile" ); ## assigning the configuration file to LEDcfg file
my $ApID = $LEDcfg->param(".ApID") ## passing the parameter ApID from configuration file 
chomp ${ApID};
my $pwd = `(ApID=$ApID $path/CA.sh)`; ## running shell script by ApID parameterized => Failed
my $pwd = `(ApID=ACF_ERTF_DER $path/CA.sh)`; ## running shell script by ApID hardcoded => Succeeded
 

Значение ApID=ACF_ERTF_DER , указанное в строке 7. Это значение вызывается из другого файла конфигурации, из которого я звонил $CFG_DIR/LED.cfg .

Если я прокомментирую my $ApID (строка 4) и my $pwd (строка 6), задание завершится успешно, вызвав ApID напрямую, используя последнюю строку 7, т. Е. my $pwd = (ApID=ACF_ERTF_DER $path/CA.sh); .

Я вызываю файл ApID from LED.cfg, чтобы получить пароль из сценария оболочки и подключиться к серверу. Если я запускаю сценарий оболочки вручную, я получаю пароль, который используется для подключения к серверу.

Похоже, ваша проблема в том, что вы не читаете файл конфигурации, и, возможно, именно поэтому вы не получаете никаких значений.

Хитрость в программировании заключается в том, чтобы знать, что вы находитесь в хорошем, ожидаемом состоянии на каждом шаге. Вернитесь к своей программе и посмотрите на каждый шаг, чтобы убедиться, что то, чего вы хотели, действительно произошло. Я подозреваю, что ваша проблема возникает очень рано в процессе, и тогда ничто другое не может сработать.

У вас есть имя $configfile файла , но затем используйте $conffile :

 my $confdir = $ENV{CFG_DIR};  
my $configfile = 'LED.cfg'; 
my $LEDcfg = new Config::Simple( filename => "$confdir/$conffile" );
 

Затем, после этого, вы ничего не делаете, чтобы проверить, что у вас есть правильная конфигурация.

Начните с использования strict , которое заставляет вас объявлять переменные, чтобы вы могли отлавливать те досадные случаи, когда вы используете неправильное имя. Затем, как только вы построите путь, посмотрите, существует ли он на самом деле:

 use strict;
use warnings;

use File::Spec::Functions;

my $conf_dir = ...;
my $conf_file = ...;

my $conf_path = catfile( $conf_dir, $conf_file );
die "Config path <$conf_path> does not exist!" unless -e $conf_path;
 

Как только вы узнаете, что у вас есть существующий файл. Обратите внимание, что вы должны правильно вызвать метод. Первый аргумент-это путь, а не filename . Вы также можете проверить, получили ли вы то, что ожидали:

 my $config = Config::Simple->new( $conf_path );
my %vars = $config->vars;

use Data::Dumper;
print "Found config: ", Dumper( %vars );
 

Кроме того, вы говорите, что хотите получить значение ApID , но затем пытаетесь получить доступ .ApID . Может быть, это и правильно, но это выглядит подозрительно, и вы не показали нам пример файла конфигурации. Вы можете добавить туда еще несколько отладочных выходных данных, чтобы проверить, что вы получили значение.

Как только вы разберетесь с этой частью, вы сможете продолжить с остальным. Но также обратите внимание, что Config::Simple 15 лет. Есть много лучших, поддерживаемых в настоящее время модулей, которые могут вам помочь.