Привет всем! Не являясь большим спецециалистом по PERL\'у, иногда предпочитаю писать на нём. Особенно учитывая все его прелести. Поэтому, если вопросы будут дурацкие - уж извиняйте.
Есть проблема: на Win серваке нужно мониторить каталог на предмет изменения и добавления файлов. Файлы в формате CSV. Каждый день добавляется новый файл и в него весь день пишется инфа. Все изменения нужно сбрасывать в SQL. Сейчас работает следующий вариант: на SQL серваке крутиться DTS пакет который раз в день забирает с расшаренной директории новый файл(за прошедший день) и закачивает его в базу. Нужно, что бы изменения отражались в базе не раз в день, а сразу. Ну и как-то покрасивее хочется сделать.
Решил написать скрипт, который на серваке с файлами крутился бы в фоне и мониторил каталог.
Всё что нарыл - Win32::ChangeNotify
use strict;
require Win32::ChangeNotify;
my $Path=\'D:\\DATA\';
my $WatchSubTree=1;
my $Events=\'LAST_WRITE\';
my $notify=Win32::ChangeNotify->new($Path,$WatchSubTree,$Events);
$notify->wait();
print "Something changed\\n";
И то как-то криво работает. Как в цикл загнать - непонятно. Как получить,что конкретно изменилось - тоже не знаю.