Perl открыть файл из командной строки с помощью шаблона

Question

Я исполняющего мой сценарий так:

./script.pl -f files* 

Я смотрел на некоторых других потоков (например, How can I open a file in Perl using a wildcard in the directory name?)

Если я жесткий код имя файла, как он есть написанный в этой теме, я получаю желаемый результат. Если я беру его из командной строки, это не так.

Моя подпрограмма должна сохранять все файлы, которые я получаю в массиве.

my @file; 
sub Options{ 
    my $i=0; 
    foreach my $opt (@ARGV){ 
    switch ($opt){ 
     case "-f" { 
     $i++; 

     ### This part does not work: 
     @file= glob $ARGV[$i]; 
     print Dumper("$ARGV[$i]"); #$VAR1 = 'files'; 
     print Dumper(@file); #$VAR1 = 'files'; 
     } 
    } 
    $i++; 
    } 
} 

Кажется, что выполнение интерпретируется заранее, и шаблон шаблона (*) отбрасывается в процессе.

0 Желаемый результат: Все файлы, начинающиеся с , хранятся в массиве, после выполнения команды из командной строки.

Надеюсь, вы получите мою проблему. Если не стесняйтесь спрашивать.

спасибо.

Answer 1

Ну, сначала я бы предложил использовать модуль для выполнения args в командной строке: Getopt::Long например.

Но в противном случае ваша проблема проще - ваш shell расширяет «файл», прежде чем он получит его. (оболочка glob добирается туда первым).

Если вы делаете это с:

-f 'file*' 

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

use Data::Dumper; 
print Dumper \@ARGV; 

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

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

Вы можете использовать <>, который автоматически открывает и считывает все файлы, указанные в командной строке (в порядке).

Answer 2

Поскольку ваша оболочка уже расширяет glob files* в список имен файлов, это то, что получает программа Perl.

$ perl -E 'say @ARGV' files* 
files1files2files3 

Не нужно делать это на Perl, если ваша оболочка может сделать это за вас. Если все, что вы хотите, это имена файлов в массиве, у вас уже есть @ARGV, который содержит их.