Как я могу проверить, открыт ли сейчас файл csv и записывается ли в него - файл, а не дескриптор файла - с помощью Perl?

Question

У меня есть система Clipper, записывающая CSV-файлы в каталог Windows. У меня есть скрипт Perl, работающий на сервере Linux, который читает монтирование этого каталога Windows и импортирует файлы в базу данных.

Сейчас мы используем файлы флагов, чтобы указать, когда csv больше не записывается; файл флага записывается после завершения csv. Я действительно предпочел бы просто получить то, что мне нужно, от самого csv, но я не могу найти способ определить, когда файл открыт и записывается.

lsof не отвечает моим потребностям. Я попытался использовать flock и открыть файл с эксклюзивной блокировкой, думая, что это может вызвать ошибку, если файл изменяется, но это не так.

Есть мысли?

Answer 1

Что-то похожее на Linux :: Inotify2 или File :: Monitor поможет при мониторинге файлов.

Answer 2

Может не работать, так как вы подключаетесь к Windows, но, возможно, inotify поможет.

Answer 3

Если inotify не работает, используйте опрос бедного человека: если время модификации превышает две секунды, файл завершает запись.

Answer 4

Согласно справочной странице Линукса для стада:

flock () не блокирует файлы через NFS. Вместо этого используйте fcntl (2): это работает по NFS, учитывая достаточно недавний версия Linux и сервер который поддерживает блокировку.

Вы пытались использовать fcntl ()? Гугл Я нашел несколько примеров людей, использующих fcntl с CIFS.