Why not: (!(-e $file)) ? die "File doesn't exist: $@\n" : open (...$file...) or die "File exists but still can't open: $@\n";
> I'm not 100% confident that'll work as written. I *think* > that if the > open is successful then the die will never execute and that 'if' will > never get checked. If the 'open' is successful on writing to a > non-existant file, I'm not sure if this solution will correct it. > > Dan Muey wrote: > > >Open (...$file ...) || die "Oops I died : $@" if (-e $file); > >Something like that should work > > > >Dan > > > > > > > >>-----Original Message----- > >>From: Rob Richardson [mailto:[EMAIL PROTECTED]] > >>Sent: Tuesday, January 14, 2003 12:52 PM > >>To: [EMAIL PROTECTED] > >>Subject: RE: Where do die messages go? > >> > >> > >>Greetings! > >> > >>If I remember correctly, in either Visual C++ or Visual Basic > >>(or both) there is a way to call open() (or its equivalent) > >>for appending and to have it fail if the file doesn't > >>previously exist. Is there a way to do that in Perl? > >> > >>Merely curious -- I'm not likely to need this in the near future. > >> > >>RobR > >> > >> > >> > >>__________________________________________________ > >>Do you Yahoo!? > >>Yahoo! Mail Plus - Powerful. Affordable. Sign up now. > >> > >> > >http://mailplus.yahoo.com > > > > > > > > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
