プログラミングのお題スレ Part17

[0058 デフォルトの名無しさん 2020/03/28(土) 11:14:59.26 ID:VFdWLa/U]

>>52 Perl5

$"=',';
for $a (<DATA>) {
　$a =~ s/-/.../;
　@s = eval $a;
　print "[@s]\n";
}
__DATA__
1
1-3
1,3
1,3-5


実行結果
~ $ perl 17_53_ancres.pl
[1]
[1,2,3]
[1,3]
[1,3,4,5]