Код
#! /bin/usr/perl
$dir = <STDIN>;
opendir(dir, '/root') || die "Error: $!";
@FILES = readdir dir;
closedir(dir);
print "$_\n" foreach @FILES;
$dir = <STDIN>;
opendir(dir, '/root') || die "Error: $!";
@FILES = readdir dir;
closedir(dir);
print "$_\n" foreach @FILES;
Помогите пожалуйста разобраться с некоторыми вопросами.
1) что нужно поставить вместо '/root' чтобы путь принимал значение переменной $dir, которую вводит пользователь? Пробовала "$dir" и так '$dir' и просто $dir. Ничего не подходит.
2) и как сделать так чтобы найденные файлы оказались в массиве (с тем чтобы потом этот массив отсортировать). Или может, есть специальная опция, благодаря которой можно будет сразу получить список файлов в алфавитном порядке?
3) readdir dir читает только названия файлов. А можно ли сделать так, чтобы и даты их создания были известны?
Вот такая вот куча вопросов получилась