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

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

整数と小数にマッチ

 #!/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";
     }
 }