Могу ли я использовать константу Perl в операторе glob?

Question

Я разбор XML-файлы с чем-то вроде:

while (<files/*.xml>) { ... } 

Я хочу использовать константу «файлы», скажу

use constant FILES_PATH => 'files'; 
while (<FILES_PATH/*.xml>) { ... } 

Я надеюсь, вы понимаете идею, и можете помочь мне:) ..

Заранее спасибо.

Answer 1

Хм, это одна из причин использования Readonly вместо постоянного. Вы можете использовать & старт или () в конце константы, чтобы получить Perl для реализации подпрограммы. Дай мне проверить.

Нет, но вы можете использовать классический трюк создания ссылки на массив разыменовать:

#!/usr/bin/perl 

use strict; 
use warnings; 

use constant DIR => "/tmp"; 

print map { "$_\n" } <${[DIR]}[0]/*>; 

Но поскольку glob "*" такие же, как <*> вы можете предпочесть:

#!/usr/bin/perl 

use strict; 
use warnings; 

use constant DIR => "/tmp"; 

print map { "$_\n" } glob DIR . "/*"; 

я бы, вероятно, сказать,

#!/usr/bin/perl 

use strict; 
use warnings; 

use Readonly; 

Readonly my $DIR => "/tmp"; 

print map { "$_\n" } <$DIR/*>; 

Answer 2

Несомненно, «/» в этом контексте будет рассматриваться как разделение, и это вряд ли удастся никуда. Я думаю, вам может понадобиться немного отступить и посмотреть, какие у вас есть другие варианты. Я думаю, вы пытаетесь сделать «файловое глобусирование», и я, кажется, вспоминаю поддержку в perl, хотя я не помню деталей. В CPAN есть модуль «Glob», на который вы можете посмотреть. Лично я был бы намного более пешеходным и просто использовал DirHandle и отфильтровывал бы не-xml-файлы со строкой «next ... if ...».

Answer 3

Как говорили другие, это все о stri ng интерполяция.

Постоянная прагма не работает в интерполяционных контекстах, поэтому вам нужно использовать что-то, что будет работать.

Как уже упоминалось, Readonly является одним из вариантов.

Вы также можете использовать старый «назначить значение, доступное только для чтения» трюку типаglob ».

our $FILES_PATH; # declare FILES_PATH scalar to keep strict happy. 
*FILES_PATH = \'files'; # Assign to typeglob so $FILES_PATH points to a string literal 

while(<$FILES_PATH/*.xml>) { 
    # read the files 
}