5 lines
76 B
Perl
5 lines
76 B
Perl
|
sub rangex {
|
||
|
|
(my $range = shift) =~ s/(?<=\d)-/../g;
|
||
|
|
eval $range;
|
||
|
|
}
|