Как переместить содержимое каталога в массив в Perl?

Question

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

Я должен делать все эти вещи, используя PerlСценарий.Может кто-нибудь дать мне код для перемещения содержимого каталога в массив?

ПОЖАЛУЙСТА, ЗАПОЛНИТЕ СЛЕДУЮЩИЙ СЦЕНАРИЙ:

opendir(INFILE_DIR,"$Input_Path") || die "cannot open $Input_Path ";            
my @files =---------------;

Что будет с "------"область для перемещения содержимого каталога в массив.

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

Answer 1

Это не потребует от вас chdir в нужный каталог:

opendir my $dh, $dir or die "Cannot open directory $dir\n";
my @files = readdir $dh;
closedir $dh;

Answer 2

chdir $dir or die "Can't cd to $dir: $!\n";
my @contents = glob("*");

Answer 3

После открытия каталога вы должны прочитать его ( readdir ), чтобы получить файлы.

opendir(my $dh, ".");
my @files=readdir($dh);
closedir $dh;

Answer 4

Функция, которую вы ищете: readdir. Вы можете найти дополнительную помощь по его использованию, выполнив perldoc -f readdir.