Fetching путь файла из Perl '.rc' файла

Question

Так что я файл Perl- '.rc' (давайте назовем его 'path.rc' с синтаксисом Perl), который имеет следующую строку:

$RC{model_root} = '/nfs/fm/disks/fm_fabric_00011/abc_rel//xy/xy-abc1-15aa05e' 

I необходимо извлечь файлы из каталога 'xy-abc1-15aa05e'. Я не должен жестко кодировать этот путь в своем файле Perl (давайте назовем это 'Fetch.pl'), поскольку путь может часто меняться, поэтому поддерживается отдельный файл .rc. Я использую:

my $model_root = $RC{model_root}; 

ссылки на пути в моем коде Perl (например, параметр ссылки на пути в гс файле). Как открыть файлы в каталоге 'xy-abc1-15aa05e'? Мой файл Perl не может получить путь :(

Это нарушает остальную часть моего кода ... Как я могу сделать это?

Answer 1

Если вы сделаете свой «гс» файл модуля Perl, как это:

Defs.pm:

package Defs; 

our $path = '/nfs/fm/disks/fm_fabric_00011/abc_rel//xy/xy-abc1-15aa05e'; 

1; 

Тогда вы можете - в сценарии:

#Ensure we can 'find' the defs file, by having a library path that's relative to 
#the script location. 
use FindBin; 
use lib $FindBin::Bin; 

use Defs; 

print $Defs::path, "\n"; 

Если вы specifical вам нужно использовать формат, который вы указали, тогда вам нужно обработать содержимое файла. Один из способов сделать это - eval. Но я не слишком стараюсь это делать, если это абсолютно необходимо.

Вы могли бы сделать что-то подобное, хотя:

use Data::Dumper; 

open (my $rcfile, "<", 'rcfile') or die $!; 
my %RC; 
eval <$rcfile>; 

print Dumper \%RC; 

Я не люблю с помощью Eval в таком роде образом, хотя - вы должны быть очень осторожны относительно ваших входов, так как в противном случае нечетных вещи могут ломаться. (Примечание - это работает только для файла с одной строкой - если у вас несколько строк, вам может понадобиться local $/;, чтобы разделить весь файл, чтобы его оценить).

вместо этого я был бы соблазн использовать регулярное выражение для разбора:

my $model_root; 
while (<$rcfile>) { 
    my ($varname, $value) = (m/\A(\S+) = \'(\S+)\'/); 
    if ($varname eq '$RC{model_root}') { $model_root = $value; } 
} 

print $model_root; 
foreach my $file (glob "$model_root/*") { 
    print "Doing something with $file\n"; 
}