Кто-нибудь расскажет мне, что такое flock, а то наивный автор учебника по Perl написал следующее:

flock файл, операция
Системный вызов flock()

видно, думая, что все такие чумовые и работают на Unix, но я кроме виндов ничем никогда не пользовался и по-этому в этой области не грамотный. Да, ещё в MS-DOS есть некий lock, который блокирует диск, обеспечивая прямой доступ к нему приложения, может быть они как-то связаны?
И.. ещё - куда писать команды отладчика?
И может быть учебник у кого-нибудь есть по-эффективнее, буду благодарен.

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

Цитата

наивный автор учебника по Perl

Имеется ввиду г-н Маслов?? :-)))))

Точнее будет сказать, что эта команда позволяет заблокировать/разблокировать файл. И в Windows не работает.

Цитата

int flock(int fd, int operation) DESCRIPTION        Apply  or  remove  an  advisory lock on an open file.  The        file is specified  by  fd.   Valid  operations  are  given        below:               LOCK_SH   Shared  lock.   More than one process may                         hold a shared lock for a given file at  a                         given time.               LOCK_EX   Exclusive  lock.   Only  one  process may                         hold an exclusive lock for a  given  file                         at a given time.               LOCK_UN   Unlock.               LOCK_NB   Don't  block when locking.  May be speci-                         fied (by or'ing) along with  one  of  the                         other operations.        A  single file may not simultaneously have both shared and        exclusive locks. RETURN VALUE        On success, zero is returned.  On error, -1  is  returned,        and errno is set appropriately.

Это сообщение отредактировал(а) GoodBoy - 29.3.2004, 10:33

Цитата

Точнее будет сказать, что эта команда позволяет заблокировать/разблокировать файл. И в Windows не работает.

Очень даже работает

Вот пример, с помощью которого это можно проверить:

Код

#!/usr/bin/perl -w use strict; use warnings; use Fcntl qw( :flock ); my $file_lock = 'lock.fc'; my $file_base = 'base.txt'; sub start_lock {    open( BLOCK, "> $file_lock" ) or die "Не могу открыть файл блокировки: $!";    flock( BLOCK, LOCK_EX ) or die "Не могу заблокировать файл: $!"; } sub stop_lock {    close( BLOCK ) or die "Не могу закрыть файл блокировки: $!"; } start_lock;     open( DB, ">> $file_base" ) or die "Не могу открыть файл базы: $!";     while ( 1 ) {        print "Please enter one string or 'exit or quit' for exit: ";        chomp( my $string = <STDIN> );        last if $string =~ /^(?:exit|quit)$/i;        print DB $string, "\n";     }    close( DB ) or die "Не могу закрыть файл базы: $!"; stop_lock;

Теперь сохраним это дело в файл и откроем два окна командной строки, желательно уменьшить их так, что бы было видно оба окна одновременно.
Теперь в первом окне вводим команду:

C:\>perl имя_файла

и сразу пишем тоже самое во втором окне. После не сложно заметить что в первом окне появилось приглашение для ввода строк, а во втором нет ничего - стоим в очереди.
Теперь введём пару строк
А затем введём quit или exit, при нажатии на enter наблюдаем за вторым окном. Как только вы нажмёте ВВОД, во втором окне появится приглашение програмы - подошла очередь.

Все введённые строки будут записаны в файл base.txt в рабочем каталоге.

Тоже можно проделать и с большим количеством окон, причём очередь не будет нарушена.

Это сообщение отредактировал(а) korob2001 - 6.4.2004, 20:53

2 korob2001 маленькое уточнение, какой у тебя Windows то??? :-)))) В 98 и Линолеуме - однозначно работать не будет!!! И в NT/XP тоже скорее всего не заработает, если не NTFS...

У меня WinXP Pro, файловая система FAT-32

Это хорошо, значит в XP уже есть поддержка flock'а. Когда я в последний раз пробовал воспользоваться этим в Винде (98 OSR2) тогда еще не работало... :-)))

Да, спасибо вам, ещё бы немного и я бы свихнулся, я думал, что это из-за моей тупости а оказывается из-за виндов,..

Цитата

Да, спасибо вам, ещё бы немного и я бы свихнулся, я думал, что это из-за моей тупости а оказывается из-за виндов

А у тебя какой Windows?
Ты попробовал вышеприведённый пример? Если да, какой результат?

Цитата

Ты попробовал вышеприведённый пример? Если да, какой результат?

Вышеприведённый не пробовал, как-то по-своему писал, но flock стопудово полностью функционален, запирает файл насмерть до конца программы или параметра LOCK_UN.
У меня Win XP prof. sp1, но тогда, по-моему был 9X, соответственно - никакого эффекта не было.

Это сообщение отредактировал(а) everyone - 1.10.2004, 22:32