comment on

I'm surprised your second version does not work for you; it works for me.

use strict;
use warnings;

my @rules =
  ( q( return( "A", "Cat A" ) if $abs_diff < 75_000 and $source eq "IC
+E" ),
    q( return( "B", "Dog B" ) if $abs_diff < 75_000 and $source eq "FO
+O" ),
    q( return( "C", "Pig C" ) if $abs_diff < 75_000 and $source eq "BA
+R" ), );

my $abs_diff = 0;
my $source = 'FOO';

my @results = eval_rules();

print "@results\n";

sub eval_rules {
  for my $rule ( @rules ) {
    my ( $cat, $comment ) = eval $rule;
    return ( $cat, $comment ) if $cat and $comment;
  }
}

__END__
% perl rules.pl 
B Dog B
[download]

If I were you, I'd code the rules without return, and so that the last expression in them is a clear, unambiguous value; e.g.

q( $abs_diff < 75_000 and $source eq "ICE" ? ( "A", "Cat A" ) : () )
[download]

Then you can write:

  for my $rule ( @rules ) {
    my @ret = eval $rule;
    return @ret if @ret;
  }
[download]

The way you have it, if the test is true, the eval will return a list, otherwise it returns undef, so simply testing for @ret wouldn't work (it will always have a non-zero length).

the lowliest monk

In reply to Re: Returning data from an eval by tlm
in thread Returning data from an eval by Tanalis

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


go ahead... be a heretic
	PerlMonks