VPF::Шел и листинг через Perl - Форум программистов

InfMag

Дата 16.2.2005, 12:10 (ссылка)

(нет голосов)

Загрузка ...

…

Профиль
Группа: Завсегдатай
Сообщений: 1037
Регистрация: 21.11.2004

Репутация: нет
Всего: 4

Люди, как на перл написать листинг директорий. Увы на мне тока PHP, прошу помочь.
И еще подскажите как выполнять shell комманды через GET строчку, типа: http://server.com/index.php?cmd=...

GoodBoy

Дата 16.2.2005, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Главный джедай

Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: нет
Всего: 83

InfMag
Что значит "написать листинг директорий"?

--------------------

Чем дальше в лес, тем толще партизаны...

Цитата(igorold @ 1.5.2016, 17:40

)

Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях.

opi

Дата 16.2.2005, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 11.2.2005

Репутация: нет
Всего: нет

Ты имеешь в виду типа ls?

Код


$dir_name="/";
opendir(MD, $dir_name) || die("Cannot open directory: $dir_name\n");
@dir_files= readdir(MD);
closedir(MD);

foreach $f (@dir_files) {
        unless ( ($f eq ".") || ($f eq "..") ) {
                print "$f\n";
        }
}

Команды, используя функцию system, или просто ``; Например: $ls_out = `ls $dir_name`; Только будь осторожен, если будешь это использовать в web.

Цитата(InfMag @ 16.2.2005, 12:10)

InfMag

Дата 16.2.2005, 18:36 (ссылка)

(нет голосов)

Загрузка ...

…

Профиль
Группа: Завсегдатай
Сообщений: 1037
Регистрация: 21.11.2004

Репутация: нет
Всего: 4

opi
Это не для распространения. Для себя. smile

Яж не буду всем выдавать божественные дыры.
Добавлено @ 18:36
opi
Итак, еще раз. Я так и не понял как использовать shell функции... Нужен пример кода.

opi

Дата 16.2.2005, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 11.2.2005

Репутация: нет
Всего: нет

Самый простой способ -- использовать такие кавычки: `. (Объчно это кнопка под ESC на qwerty клавиатуре.)
И вот пример:

Код


$disk_usage_command = 'du';
@disk_usage_output = `$disk_usage_command`;

foreach $l (@disk_usage_output) {
        $l =~ /^(\d*)\s(.*)$/;
        print "$2 is taking $1 bytes of disk space.\n";
}

Цитата(InfMag @ 16.2.2005, 18:36)

opi
Это не для распространения. Для себя. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »