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;
  }