unless/if

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

Replies are listed 'Best First'.
Re: unless/if by pajout (Curate) on Oct 11, 2005 at 09:28 UTC
I am not sure if I understand you exactly, but `die if /match_to_die/; if (/match_if_something/) { #do something }` [download] is, probably, what you want...	[reply] [d/l]
Re: unless/if by blazar (Canon) on Oct 11, 2005 at 09:34 UTC
Well, the options seem to be mutually exclusive, so `chomp($file=<stdin>); die "horribly\n" if /^aaa\[/; do something if /(\d+)\\|\Q$file\E$/;` [download] or did you mean something different? Incidentally which is the `$_` against which you're testing? I have a vague suspect you want to match against `$file` instead (even though the fact that it is interpolated in one of the regexen would tend to suggest the contrary). And if so, then even in pseudocode you're doing something utterly wrong...	[reply] [d/l] [select]
Re: unless/if by ysth (Canon) on Oct 11, 2005 at 16:18 UTC
Your syntax is almost right already: `$file =<stdin>; chomp($file); if (m/(\d+)\\|\Q$file\E$/x) { do something} elsif (m/^aaa\[/) {die};` [download]	[reply] [d/l]
Re: unless/if by Anonymous Monk on Oct 11, 2005 at 10:58 UTC
you can also do : `die "Oops" unless /matchsomething/` [download]	[reply] [d/l]
Re: unless/if by Moron (Curate) on Oct 11, 2005 at 16:05 UTC
To question assumptions as I usually do these days... die is normally for programming errors, whereas this looks more like a fatal data issue, which should be handled in a different way, e.g.: `<>; if ( /^aaa/ ) { DataFatal( "problem-description, for $_" ); } chomp; my $file = $_; if ( /okregexp/ ) { #do something } else { #matches neither! # this case wasn't mentioned, by the way! } sub DataFatal { # fatal messaging. print STDERR "* DATA FATAL \n+++ " . shift . " +++\n"; exit 1; }` [download] -M Free your mind*	[reply] [d/l]
Re^2: unless/if by sth (Priest) on Oct 11, 2005 at 18:41 UTC
Unless I am missing something, printing to STDERR and then exiting is not gaining anything over die "blah\n", which is going to exit with a non-zero status. Is this to avoid a possible $SIG{DIE}?	[reply]
Re^3: unless/if by Moron (Curate) on Oct 12, 2005 at 08:17 UTC
die produces debugging information suitable for programmers but annoying for users. Programmers want to know about line numbers. Users want information that will indicate a functional solution and don't like to see even partial stack traces - it makes them believe, quite reasonably, that the program wasn't actually ready for release and that someone didn't do their job and maybe should even be fired - in fact it's hard to argue against that. -M Free your mind	[reply]
Re^4: unless/if by sgifford (Prior) on Oct 12, 2005 at 15:49 UTC
Re^5: unless/if by Moron (Curate) on Oct 18, 2005 at 12:07 UTC
Re^4: unless/if by sth (Priest) on Oct 12, 2005 at 16:58 UTC
Re^4: unless/if by blazar (Canon) on Oct 13, 2005 at 08:34 UTC


There's more than one way to do things
	PerlMonks