Condense the script

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

With what I have here:

if(($sym == 1) && ($mac == 1))
{
    print STDERR "Both not avail\n";
    exit 0;
}
[download]

Can I do this?

print STDERR "Both not avail\n";exit if(($sym == 1) && ($mac == 1));
[download]

Is there a better way or is this the best way to do this? I am puzzled if I can put the "exit" in the above statement the way I have it?

Comment on Condense the script Select or Download Code

Replies are listed 'Best First'.
•Re: Condense the script by merlyn (Sage) on Oct 07, 2003 at 17:39 UTC
If you don't care about the exit status (and in fact, I think you really want the exit status to say "bad exit"), I do that this way: `die "Both not avail" if $sym == 1 and $mac == 1;` [download] -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re: Condense the script by thelenm (Vicar) on Oct 07, 2003 at 17:42 UTC
You can do this by saying: `print STDERR "Both not avail\n" and exit if (($sym == 1) && ($mac == 1 +));` [download] but it may be even easier just to `die`, like so: `die "Both not avail\n" if (($sym == 1) && ($mac == 1));` [download] -- Mike -- `XML::Simpler does not require XML::Parser or a SAX parser. It does require File::Slurp. -- grantm, perldoc XML::Simpler`	[reply] [d/l] [select]
Re: Re: Condense the script by Anonymous Monk on Oct 07, 2003 at 19:06 UTC
thanks	[reply]
print as method call by ambrus (Abbot) on Oct 08, 2003 at 11:34 UTC
You can do this: `use IO::Handle; STDERR->print("not avail\n"), exit if $sym==1 && $mac==1;`. Or even (ugly!): `exit not print STDERR, "not avail" if $sym==1 && $mac==1;` or `syswrite(STDERR,"not avail\n"), exit 0 if $sym==1 && $mac==1;`	[reply] [d/l] [select]
Re: Condense the script by perl_in_NH (Initiate) on Oct 07, 2003 at 18:24 UTC
die "Both not avail\n" if $sym+$mac==2;	[reply]
Re: Re: Condense the script by fglock (Vicar) on Oct 07, 2003 at 18:35 UTC
What happens if `$sym == 2` and `$mac == 0` ?	[reply] [d/l] [select]
Re: Re: Re: Condense the script by waswas-fng (Curate) on Oct 07, 2003 at 19:14 UTC
you get a nasty bug that takes a long time to track down and a maintainer of your poor script that wants to track you down and $knife++ you. -Waswas	[reply]