Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

RE: Flock Subroutine

by tye (Sage)
on Jul 28, 2000 at 03:26 UTC ( [id://24778]=note: print w/replies, xml ) Need Help??

in reply to Flock Subroutine

Congratulations. That is a handy function. Here are some suggestions.

for(0..100) { sleep .15; }

In my machine, this takes nowhere near 15 seconds to run. Why? Because it is identical to:

for(0..100) { sleep 0; }

The standard FAQs have information on how to sleep for less than 1 second. Now that Perl worked around a "bug" in Win32 select(), your best bet is:

my( $x, $y, $z ); select($x=undef,$y=undef,$z=undef,0.15);

You don't exit the loop once the flock succeeds. I'd just to a return 1 if flock... and drop the whole $locked variable.

You might want to get into the habbit of using #!/usr/bin/perl -w and use strict;, since they will probably eventually save you a lot of time debugging.

I'd replace the print...exit part with a call to die since that will allow your callers to trap failure if they want to.

And don't worry too much about errors. We all make errors. That is one of the most common ways to learn new things.

Besides, none of my suggestions point out what I would call "show stoppers".

Replies are listed 'Best First'.
RE: RE: Flock Subroutine
by redmist (Deacon) on Jul 29, 2000 at 06:57 UTC
    sleep() actually sleeps a different amount of time depending on the architecture. Word around the campfire is that you can actually use select() to sleep for an exact amount of time...instructions are in Camel V2 but the rationale is not.


Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://24778]
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others examining the Monastery: (4)
As of 2024-06-17 14:44 GMT
Find Nodes?
    Voting Booth?

    No recent polls found

    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.