Re^2: Perl Module - take in a String, output object

Fun!

sub strings_to_one_span {
  my %numbers;
  @numbers{ map { (/(-?\d+)-(-?\d+)/ or /((-?\d+))/) ? ($1 .. $2) : ()
+ } split /\s*,\s*/ } = ()
    for @_;
  sort { $a <=> $b } keys %numbers
}
[download]

[]s, HTH, Massa (κς,πμ,πλ)

Comment on Re^2: Perl Module - take in a String, output object Download Code