open(BLA,"<...")|| more than one option?

[myggel]

hello,

does anyone know how to make this work?
open(TESTFILE, "<"."myfile.txt")|| (print OUTFILE "blabla\n"; print "wrote blabla to OUTFILE");
I'd like to have more than just one Option if it fails to open TESTFILE. is this possible?

thanks for any help.
michael

 

[KevinADC]

open (FH, 'blah.txt') or die "Can't open blah.txt: $!";

open (FH, 'blah.txt') or do_this($!);

etc
etc
etc

 

[rharsh]

What kind of options are you looking for?

 

[myggel]

@kevin: this works. but isn't it possible to test the file just once?

@rharsch:
i'd like to print something to the shell and to a file(OUTFILE).

 

[MikeLacey]

Try this:

# for if the open() fails
unless(open(BLAH, 'blah.txt')){
[tab]print "couldn't open file\n";
[tab]print "I'm having a bad day...\n";
}

# for if the open() suceeds
if(open(BLAH, 'blah.txt')){
[tab]print BLAH "opened file\n";
[tab]print BLAH "things are looking up...\n";
}


Mike

I am not inscrutable.

Want great answers to your Tek-Tips questions? Have a look at faq219-2884

 

[KevinADC]

yes it's possible to test the file once and do any number of things you wish depending on failure or success. See Mikes post above, or you could do something like this:

open (FH, 'blah.txt') or do_error('Unable to open file',$!);


sub do_error {
   my $error = shift;
   my $error2 = shift;
   open(ERROR,'error.txt') or die "$!";
   print ERROR "$error: $error2 [" .time . "]\n";
   close ERROR;
   print "$error: $error2 [" .time . "]\n";
}

which gives you a sub routine that you can feed all your error messages to.