two statements in or

[Selvakumar]

Hi,
i want to process two statement here in open(FILE,"file") or (first statement; second statement);
how can i add that? if the file cannot able to open i need to print something and process something.

[davorg]

Well, you could use do:

open my $fh, 'file' or do { something; something else; };

But that's getting a bit obscure, so I'd probably write something a bit more expressive.

if (!open my $fh, 'file') {
  something;
  something else;
}

Or

unless (open my $fh, 'file') {
  something;
  something else;
}

[moritz]

if (open(my $handle, '<', 'filename.txt')) {
   # success
} else {
   # failure
   die "can't open 'filename.txt' for reading: $!";
}

[targetsmart]

I think you got carried away by the elegance of modifiers
modifiers are meaningful if you have one statement to execute upon it.
but in case of more than one statement, better use some other flow control statements with blocks

[poolpi]

See autodie


eval {
    use autodie;
    open( my $fh, '<', $my_file );
    # ...
    close($fh);
};

if ( $@ and $@->isa('autodie::exception') ) { 
    if ( $@->matches('open') ) { 
        print "Error from open\n";
        # ...
    }   
}
else {
    # open OK...
}


hth,
PooLpi

[Anonymous Monk]

open ... or do{ .. }; open ... or ..., ...;

[Marshall]

I would do this:

#!/usr/bin/perl -w
use strict;

open (IN, "somefile") || warn "unable to open somefile";

open (IN, "somefile") || hey_do_something();

sub hey_do_something
{
   print "some stuff in a sub\n";
   print "more stuff in a sub\n";
}

In the above normally "warn" would be "die". In almost all cases an OPEN should succeed on a file_path (usual case is that you know a valid file_path). There are exceptions of course, but they are aren't "normal".

Anyway above "warn", "die", "hey_do_something" are just subroutines to execute if the OPEN fails.

Update: If you are working with some user input, I would check that the file exists before even getting to the "open" statement unless the error message from the open() is very clear: open() or die "can't open $file $!";