YanoRyuichi.com/
Wiki
Blog
GitHub
Sandbox
開始行:
* 整数と小数にマッチ [#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
終了行:
* 整数と小数にマッチ [#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
ページ名: