> -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, March 27, 2002 3:18 PM > To: Beginners Perl Mailing List > Subject: Testing for filehandles > > > Hello, All: > > I've looked around for an answer to this (The Camel Book, The > Ram Book, > perldoc, google.com, etc.) but can't find a thing: Is it > possible to test > for the existence of a filehandle? > > I've got a small script that <optionally> opens a filehandle. If that > filehandle exists, I'd like to print to it. Otherwise, don't. e.g., > ...
You can pass a filehandle glob to IO::Handle::opened(): use strict; use IO::Handle; open(F, "<foo") or die; ... print "F is open\n" if IO::Handle::opened(*F); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
