整数と小数にマッチ

 /^\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

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS

Last-modified: 2011-09-01 (木) 07:56:22