20/03/28 11:14:59 VFdWLa/U.net
>>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]
20/03/28 11:14:59 VFdWLa/U.net
>>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]