Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
 }
 return ($#First<=>$#Second);
}
  2. or download this
    #!/usr/bin/perl -w

...
 }
 return ($#First<=>$#Second);
}
  3. or download this
    my ($val1,$val2)=("1.1.2","1.1.3");
print "Greater than\n" if ((sort byVersion ($val1,$val2))[-1] eq $val1
+);