Как я могу проверить, открыт ли файл другой программой на Perl?

Question

В Perl, как мне проверить, открыт ли файл другой программой Perl? Мне нужно сделать первую программу до того, как вторая программа может запуститься.

Answer 1

альтернативный текст http://musicritics.com/wp/wp-content/uploads/2009/05/20061129morbo.gif

НЕ РАБОТАЮТ ФАЙЛЫ!

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

Answer 2

Доступно ли flock () в вашей системе? В противном случае эти две программы должны быть синхронизированы, они могут обмениваться данными через канал или сокет или через наличие / отсутствие файла.

Другим направлением, если вы работаете в Unix-подобной системе, можно использовать lsof output.

Я предполагаю, что запуск первой программы во второй невозможен.

Answer 3

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

Answer 4

Если вы работаете в Windows, вы можете позвонить CreateFile напрямую с dwShareMode из 0.

Согласно MSDN :

Запрещает другим процессам открывать файл или устройство, если они запрашивают удаление, чтение или запись.

Win32API :: File предоставляет доступ к этому вызову.

Answer 5

По моему опыту, flock отлично работает на локальных системах как в Windows, так и в Linux.

Возможно, вы также можете иметь первую программу exec вторую программу, когда она завершит обработку файла.

Answer 6

Возможно, я неправильно понимаю контекст, и мой комментарий может иметь ограниченную юзабилити в вашем случае, но в зависимости от того, что вы используете для / в коде - Использование последовательных очередей для обеспечения выполнения задач в предсказуемом порядке, возможно, вариант. Ваше приложение (написанное на Perl) должно будет явно создавать последовательные очереди и управлять ими. Для более подробной информации обратитесь к следующей ссылке: GCD

Answer 7

Если вы работаете в Unix, вы также можете позвонить fuser .

Answer 8

Чтобы определить, открыт ли файл или используется, если вы работаете в Unix, для команды lsof есть обертка для просмотра списка открытых файлов: Unix::Lsof