NAME

Hub::Perl::Compare -

Part of the Hub Library

SYNOPSIS

DESCRIPTION

METHODS

compare

Wrapper for Perl's internal comparison operators.

Usage: compare OPERATOR, LEFT_OPERAND, RIGHT_OPERAND

OPERATOR's:

eq ne lt le gt ge == != < > <= >=

Extended OPERATOR's:

eqic    Equal ignore case
neic    Not-equal ignore case

The purpose here is twofold: a) support runtime comparison when the operator is held as string; and b) behave like Perl does when warnings are disabled.

This example returns: true:

compare('eq','',undef);

This example returns: true:

compare('eq','abc','abc');

This example returns: true:

compare('ne','abc','Abc');

This example returns: false:

compare('eq','abc',undef);

This example returns: true:

compare('!~','abc','A');

This example returns: true:

compare('=~','abc','a');

This example returns: true:

compare('==',1234,1234);

This example returns: true:

compare('>=',1234,1234);

This example returns: true:

compare('eqic','abc','Abc');

This example returns: true:

compare('==',undef,undef);

This example returns: true:

compare('==',0,undef);

Example: This example:

my @numbers = ( 20, 1, 10, 2 );
          join ';', sort { &compare('<=>',$a,$b) } @numbers;

matches:

1;2;10;20

INTERNAL

AUTHOR

Ryan Gies

COPYRIGHT

Copyright (c) 2006 Livesite Networks, LLC. All rights reserved.

Copyright (c) 2000-2005 Ryan Gies. All rights reserved.

UPDATED

This file created by on at