Subversion Repositories DevTools

Rev

Rev 283 | Rev 3987 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 283 Rev 317
Line 31... Line 31...
31 
our $VERSION = 1.00;
 31 
our $VERSION = 1.00;
32 
our @EXPORT = qw(
 32 
our @EXPORT = qw(
33 
            HashJoin
 33 
            HashJoin
34 
            HashUniqueJoin
 34 
            HashUniqueJoin
35 
            UniquePush
 35 
            UniquePush
- 
 
 36 
            ArrayList
36 
            );
 37 
            );
37 
 
 38 
 
38 
#-------------------------------------------------------------------------------
 39 
#-------------------------------------------------------------------------------
39 
# Function        : HashJoin
 40 
# Function        : HashJoin
40 
#
 41 
#
Line 145... Line 146...
145 
            }
 146 
            }
146 
        }
 147 
        }
147 
    }
 148 
    }
148 
    return ($ret);
 149 
    return ($ret);
149 
}
 150 
}
- 
 
 151 
 
- 
 
 152 
 
- 
 
 153 
#-------------------------------------------------------------------------------
- 
 
 154 
# Function        : ArrayList
- 
 
 155 
#
- 
 
 156 
# Description     : Convert a list of scalars and/or array references
- 
 
 157 
#                   return an array
- 
 
 158 
#
- 
 
 159 
# Inputs          : items            - May be a scalar or an array ref
- 
 
 160 
#
- 
 
 161 
# Returns         : An array
- 
 
 162 
#
- 
 
 163 
sub ArrayList
- 
 
 164 
{
150
165 
    my @ret;
- 
 
 166 
    foreach my $item ( @_ )
- 
 
 167 
    {
- 
 
 168 
        push @ret, (ref($item) eq 'ARRAY') ? @$item : $item;
- 
 
 169 
    }
- 
 
 170 
    return @ret;
- 
 
 171 
}
151 
 
 172 
 
152 
1;
 173 
1;
153 
 
 174