- 追加された行はこの色です。
- 削除された行はこの色です。
- 正規表現/整数と小数にマッチ へ行く。
- 正規表現/整数と小数にマッチ の差分を削除
* 整数と小数にマッチ [#kbf7e43b]
/^\d+(?:\.\d+)?$/
#!/usr/bin/perl
use strict;
use warnings;
my @nums= (
'1.5', '0.5', '100', '0',
'', '.1', '1.', '1.1.1', '1..1'
);
foreach my $num (@nums) {
if ($num =~ /^\d+(?:\.\d+)?$/) {
print "ok $num\n";
} else {
print "ng $num\n";
}
}
ok 1.5
ok 0.5
ok 100
ok 0
ng
ng .1
ng 1.
ng 1.1.1
ng 1..1