two statements in or

Selvakumar has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: two statements in or by davorg (Chancellor) on Jun 26, 2009 at 10:50 UTC
Well, you could use `do`: `open my $fh, 'file' or do { something; something else; };` [download] 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; }` [download] Or `unless (open my $fh, 'file') { something; something else; }` [download] -- See the Copyright notice on my home node. Perl training courses	[reply] [d/l] [select]
Re: two statements in or by moritz (Cardinal) on Jun 26, 2009 at 10:46 UTC
`if (open(my $handle, '<', 'filename.txt')) { # success } else { # failure die "can't open 'filename.txt' for reading: $!"; }` [download]	[reply] [d/l]
Re: two statements in or by targetsmart (Curate) on Jun 26, 2009 at 11:25 UTC
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 Vivek -- 'I' am not the body, 'I' am the 'soul', which has no beginning or no end, no attachment or no aversion, nothing to attain or lose.	[reply]
Re: two statements in or by poolpi (Hermit) on Jun 26, 2009 at 12:59 UTC
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... }` [download] hth, PooLpi 'Ebry haffa hoe hab im tik a bush'. Jamaican proverb	[reply] [d/l]
Re^2: two statements in or by Anonymous Monk on Jun 26, 2009 at 15:09 UTC
open ... or do{ .. }; open ... or ..., ...;	[reply]
Re: two statements in or by Marshall (Canon) on Jun 27, 2009 at 10:35 UTC
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"; }` [download] 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 $!";	[reply] [d/l]