Anonymous

#
# Function used to split a string by a specific separator
# Returns an array
#
sub get_array {
        my ($in, $sep) = @_;
        #print "Splitting $in with $sep\n";
        my $cpt=0;
        my @array;
        my $max_word;
        while ( index($in,$sep) > -1 ) {
                my $start = index($in,$sep);
                #print "start=$start\n";
                my $end = length($in);
                #print "end=$end\n";
                my $min_word = substr($in,0,$start);
                $max_word = substr($in,$start+1,$end-$start);
                $array[$cpt++] = $min_word;
                #$array[$cpt++] = $max_word;
                $in = substr($in,$start+1);
        }
        $array[$cpt++] = $max_word;
        return @array;
}