ポジションの情報join(start..end)のバリデーター

gistfile1.md

sub sort_region {
    
    my $start = shift;
    my $end   = shift;
    
    if ( $start < $end ) {
        my $join = "$start..$end";
        return scalar $join;
    }
    elsif ( $start > $end ) {
        my $reversed_join = "$end..$start";
        return scalar $reversed_join;
    }
    else {
        return "Error:";
    }
}

##Usage:

my $start = 1111;`
my $end = 2222;
print sort_region($start, $end);

return to 1111..2222