Help for this page

Select Code to Download

Select or download this

if( $a < $b ) {
    ## Do what is required when $a is the lessor
...
else {
    ## Do what is required when $b is the lessor
}

Select or download this

#! perl -slw
use strict;
...
Argument "X=ARRAY(0x1824550)" isn't numeric in subroutine entry at c:\
+test\junk3.pl line 10.
Argument "X=ARRAY(0x2251a4)" isn't numeric in subroutine entry at c:\t
+est\junk3.pl line 10.
X=ARRAY(0x1824550)