正規表現/整数と小数にマッチのバックアップの現在との差分(No.1)

バックアップ一覧
差分を表示
ソースを表示
バックアップを表示
正規表現/整数と小数にマッチへ行く。
- 1 (2011-09-01 (木) 07:55:29)

追加された行はこの色です。
削除された行はこの色です。

* 整数と小数にマッチ [#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