Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Как выбрать файлы по маске из другой директории?

Автор: Suppir 21.11.2011, 16:41

Пишу:

Код


while(<*.txt>)

Но мне нужно получить все txt-файлы не той директории, в которой лежит скрипт, а в директории "//comp1/сеть/тексты"

Как это сделать?

Автор: alezzz 21.11.2011, 16:48

chdir

Автор: Suppir 21.11.2011, 16:52

спасибо

Автор: arto 21.11.2011, 17:48

указать путь

Автор: mishin 24.11.2011, 15:16

Код


use File::Slurp qw( :std );
my $path_to_files = '/MISHNIK/test';
my @files = read_dir( $path_to_files, prefix => 1 );
my @needed_files = grep { /txt$/ } @files;