Forum Webscript.Ru

Программирование => Perl => Тема начата: PerlBeginner от 15 Июля 2005, 13:29:23

Название: Заполнение массива именами файлов
Отправлено: PerlBeginner от 15 Июля 2005, 13:29:23

Привет, всем!

Подскажите, пожалуйста, как заполнить массив ARRAY именами файлов с расширением .o?
Например,
есть директория /home/user/lib, в которой содержаться файлы 1.о, 2.о, 3.о.
Содержание массива ARRAY должно быть "1 2 3"
Спасибо!

Название: Заполнение массива именами файлов
Отправлено: NeoNox от 15 Июля 2005, 14:43:48

use strict;

opendir (DH, \'/home/user/lib\') or die "Can\'t do this: $!";

my @array = grep { s/^(\\d*?)\\..*/$1/ } readdir(DH);
print $_."\\n" foreach(@array);