Я должен вручную установить @ARGV Perl, таким образом, я могу использовать <>, чтобы открыть, просканировать, и закрыть файлы?

Я предпочел бы эту более явную и читаемую версию:

#!/usr/bin/perl -w 

foreach my $file (<$ARGV[0]/*>){
    open(F, $file) or die "$!: $file";
    while(<F>){
      # search for pattern
    }
    close F;
}

Но это должно также хорошо управлять @ARGV:

#!/usr/bin/perl -w 

@ARGV = <$ARGV[0]/*>;
while(<>){
    # search for pattern
}

Да, нормально корректировать список аргументов перед запуском'while (<>)'цикл; это было бы более близко безрассудно для корректировки его в то время как в цикле. При обработке аргументов опции, например, Вы обычно удаляете объекты из @ARGV; здесь, Вы добавляете объекты, но это все еще изменяет исходное значение @ARGV.

Это не делает разногласий, является ли код в подпрограмме или в 'основной функции'.

Предыдущие ответы касаются Вашего основного программирующего Perl вопроса скорее хорошо.

Таким образом позвольте мне прокомментировать базовый вопрос: Как найти шаблон в наборе файлов.

В зависимости от ОС могло бы иметь смысл называть специализированную внешнюю программу, говорить

grep -l <pattern> <path>

на Unix.

В зависимости от того, что необходимо сделать с файлами, содержащими шаблон, и насколько большой отношение хита/мисс, это могло бы сэкономить довольно мало времени (и повторные использования доказанный код).

Большая проблема с тонкой настройкой @ARGV - то, что это - глобальная переменная. Кроме того, необходимо знать это while (<>) имеет специальные волшебные атрибуты. (читающий каждый файл в @ARGV или обработка STDIN если @ARGV пусто, тестируя на definedness, а не истину). Для сокращения волшебства, которое должно быть понято я избежал бы его, за исключением беглых заданий взлома.

Можно получить имя файла текущего файла путем проверки $ARGV.

Вы не можете понять это, но Вы на самом деле влияете на две глобальных переменные, не просто @ARGV. Вы также совершаете нападки $_. Это очень, очень хорошая идея локализовать $_ также.

Можно уменьшить влияние порчи globals при помощи local локализовать изменения.

BTW, существует другой важный, тонкий бит волшебства с <>. Скажите, что Вы хотите возвратить номер строки соответствия в файле. Вы могли бы думать, хорошо, проверка perlvar и найти $. дает linenumber в последнем дескрипторе, к которому получают доступ - большой. Но существует проблема, скрывающаяся здесь-$. не сбрасывается между @ARGV файлы. Здорово, если Вы хотите знать, сколько общего количества строк Вы обработали, но не, если Вы хотите номер строки для текущего файла. К счастью, существует простой прием с eof это решит эту проблему.

use strict;
use warnings;

...

searchDir( 'foo' );

sub searchDir {
    my $dirN    = shift;
    my $pattern = shift;

    local $_;

    my @fileList = grep { -f $_ } glob("$dirN/*");

    return unless @fileList;  # Don't want to process STDIN.

    local @ARGV;

    @ARGV = @fileList;
    while(<>) {
        my $found = 0;
        ## Search for pattern
        if ( $found ) {
            print "Match at $. in $ARGV\n";
        }
    }
    continue {
        # reset line numbering after each file.
        close ARGV  if eof;  # don't use eof().
    }
}

ПРЕДУПРЕЖДЕНИЕ: Я просто изменил Ваш код в своем браузере. Я не выполнил его так он, могу иметь опечатки и вероятно не буду работать без небольшого количества тонкой настройки

Обновление: причина использовать local вместо my это, они делают совсем другие вещи. my создает новую лексическую переменную, которая только видима в содержавшем блоке и не может быть получена доступ через таблицу символов. local сохраняет существующую переменную пакета и искажает его к новой переменной. Новая локализованная версия видима в любом последующем коде, пока мы не оставляем блок включения. См. perlsub: Временные ценности Через локальный ().

В общем случае создания новых переменных и использования их, my верный выбор. local является соответствующим, когда Вы работаете с globals, но Вы хотите удостовериться, что Вы не распространяете свои изменения в остальной части программы.

Этот короткий сценарий демонстрирует локальный:

$foo = 'foo';

print_foo();
print_bar();
print_foo();

sub print_bar {
    local $foo;
    $foo = 'bar';
    print_foo();
}

sub print_foo {
    print "Foo: $foo\n";
}