Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    __END__
    % perl rules.pl 
    B Dog B
    
  2. or download this
    q( $abs_diff < 75_000 and $source eq "ICE" ? ( "A", "Cat A" ) : () )
    
  3. or download this
      for my $rule ( @rules ) {
        my @ret = eval $rule;
        return @ret if @ret;
      }