Модераторы: ginnie, korob2001
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сканирование всего дерева каталогов, Программа фотографирования ФС 
:(
    Опции темы
rcdimon
Дата 1.5.2005, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

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



Я хочу создать небольшую программку для Linux, которая сканировала бы ВСЕ файлы ы системе, подсчитывала бы их размер, контрольную сумму, дату и т.д. Типа это нужно для того, что бы следить за системой, какие изменения внясятся в какие файлы. Эта программа должна будет работать на моем сервере.


Я где то читал, что сканирование каталогов очень сложный процесс и уже давно решенный. Читал что для этого в перле есть специальный модуль. Так вот никто ли не знает как использовать этот модуль. Заранее спасибо
PM MAIL ICQ   Вверх
korob2001
Дата 1.5.2005, 12:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

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



Почитай эту статью:
http://forum.vingrad.ru/index.php?showtopic=43492
там описаны варианты прохода по дереву каталогов, как с помощью сторонних модулей, так и ручной проход. Единственное вместо удаления, делай то, что тебе нужно. Я как-то писал что-то подобное на Perl/Tk, когда попаду вечером поищу на винте, если найду, выложу этот код.

Это сообщение отредактировал(а) korob2001 - 1.5.2005, 12:44


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Ivan Kolesnikov
Дата 3.5.2005, 10:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 113
Регистрация: 9.3.2005
Где: г. Новокузнецк

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



Используй File::Find
--------------------
PM MAIL ICQ   Вверх
Sadok
Дата 4.5.2005, 09:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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



Навскидку:

Код

use strict;
use File::Find;
my $size;
no warnings 'File::Find';
find (\&calc, @ARGV);
sub calc 
    {
        $size += (stat($File::Find::name))[7];
    }
print $size;

Берет из STDIN пути и считает общий размер файлов в указанных каталогах и вложенных в них соответственно.
PM   Вверх
chaos
Дата 4.5.2005, 12:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


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

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



я однажды писал скриптик каторый ищет нужнуе мне файлы на фтп серверах(в локалке) принцип такой же, могу дать посмотреть
PM WWW   Вверх
Гость_rcdimon
Дата 6.5.2005, 06:18 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Конечно давай!
  Вверх
chaos
Дата 6.5.2005, 06:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Серийный программист
****


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

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



Цитата
Конечно давай!

дружище чето я вообще про тебя забыл, извеняй, вечером седня выложу(тк сейчас на работе)
PM WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: Системное программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к системному программированию на Perl
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.0440 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.