Re^2: How do I tell if a handle is open for writing?


laziness, impatience, and hubris
	PerlMonks

Re^2: How do I tell if a handle is open for writing?

by dragonchild (Archbishop)

on Feb 28, 2006 at 18:38 UTC ( [id://533452]=note: print w/replies, xml )

Need Help??

in reply to Re: How do I tell if a handle is open for writing?
in thread How do I tell if a handle is open for writing?

I'm trying to extend this to a comparable readable() function.

sub readable {
    my $fh = shift;
    (O_RDONLY | O_RDWR) & fcntl( $fh, F_GETFL, my $slush);
}

for (qw/ > < >> +< +> /) {
    open my $fh, $_, 'foo' or warn $! and next;
    print
        "$_\t",
        readable($fh)? 'readable.': 'not readable.',
        $/;
}

__END__
>       not readable.
<       not readable.
>>      not readable.
+<      readable.
+>      readable.
[download]

Huh??!

My criteria for good software:

Does it work?
Can someone else come in, make a change, and be reasonably certain no bugs were introduced?

Comment on Re^2: How do I tell if a handle is open for writing? Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://533452]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others pondering the Monastery: (7)

As of 2024-04-16 11:47 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found