Solved

file locker?

Posted on 2000-04-03
4
185 Views
Last Modified: 2013-12-25
how to make a file locker, so only one person can access the file a time?
0
Comment
Question by:syu1
  • 2
4 Comments
 
LVL 16

Accepted Solution

by:
maneshr earned 50 total points
Comment Utility
if you are using PERL, you can use the flock function.

flock FILEHANDLE, OPERATION

Establishes or removes a lock on a file opened with filehandle. This function calls one of the Unix functions flock, lockf, or
the locking capabilities of fcntl, whichever your system supports. If none of these functions exist on your system, flock will
produce a fatal error.

operation is the type of locking function to perform. The number by each operation name is the argument that Perl's flock
takes by default. You may also use the operation names if you explicitly import them from the Fcntl module with use Fcntl
":flock".

     LOCK_SH (1)

          Establishes a shared lock on the file (read lock).

     LOCK_EX (2)

          Establishes an exclusive lock on the file (write lock).

     LOCK_UN (8)

          Removes a lock from the file.

     LOCK_NB (4)

          Prevents flock from blocking while trying to establish a lock with LOCK_SH or LOCK_EX and instructs it to return
          immediately. LOCK_NB must be ored with the other operation as an expression for the operation argument, i.e.,
          (LOCK_EX | LOCK_NB).



This function calls flock(2) on FILEHANDLE. See the manual page for flock(2) for the definition of OPERATION. Invoking flock will produce a fatal error if used on a machine that doesn't implement flock(2) or emulate it through some other locking mechanism. Here's a mailbox appender for some BSD-based systems:

$LOCK_SH = 1;
$LOCK_EX = 2;
$LOCK_NB = 4;
$LOCK_UN = 8;

sub lock {
    flock MBOX, $LOCK_EX;
    # and, in case someone appended
    # while we were waiting...
    seek MBOX, 0, 2;
}

sub unlock {
    flock MBOX, $LOCK_UN;
}

open MBOX, ">>/usr/spool/mail/$ENV{'USER'}" or die "Can't open mailbox: $!";

lock();
print MBOX $msg, "\n\n";
unlock();

Note that flock is unlikely to work on a file being accessed through a network file system.
=====================================================
0
 

Expert Comment

by:mwhuen
Comment Utility
what is the use of
seek MBOX,0,2;
???
0
 
LVL 16

Expert Comment

by:maneshr
Comment Utility
seek MBOX, 0, 2;


seek FILEHANDLE, OFFSET, WHENCE

This function positions the file pointer for FILEHANDLE, just like the fseek(3) call of standard I/O. The first position in a file is at offset 0, not offset 1, and offsets refer to byte positions, not line numbers.
0
 
LVL 84

Expert Comment

by:ozo
Comment Utility
But since you opened MBOX with >> won't it automatically seek to the end to append?
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

This tutorial will discuss fancy secure registration forms, with AJAX technology support. In this article I assume you already know HTML and some JS. I will write the code using WhizBase Server Pages, so you need to know some basics in WBSP (you mig…
This tutorial will discuss the log-in process using WhizBase. In this article I assume you already know HTML. I will write the code using WhizBase Server Pages, so you need to know some basics in WBSP (you might look at some of my other articles abo…
Learn the basics of if, else, and elif statements in Python 2.7. Use "if" statements to test a specified condition.: The structure of an if statement is as follows: (CODE) Use "else" statements to allow the execution of an alternative, if the …
The viewer will learn how to create a basic form using some HTML5 and PHP for later processing. Set up your basic HTML file. Open your form tag and set the method and action attributes.: (CODE) Set up your first few inputs one for the name and …

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now