Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
# your code here...

print rev_compare('1.3', '*');
  2. or download this
    Too many arguments for main::rev_compare at foo.pl line 54, near "'*')
+"
Execution of foo.pl aborted due to compilation errors.
  3. or download this
    Argument "" isn't numeric in numeric eq (==) at foo.pl line 39.
0
  4. or download this
        if ($section_major_number == $main_minor_number)
  5. or download this
    sub rev_compare
{
...
            && (($section[1] eq '*' && $main[1] eq '*')
                || $section[1] == $main[1]);
}