- バックアップ一覧
- 現在との差分 を表示
- ソース を表示
- バックアップ を表示
- 正規表現/整数と小数にマッチ へ行く。
- 1 (2011-09-01 (木) 07:55:29)
- 追加された行はこの色です。
- 削除された行はこの色です。
* 整数と小数にマッチ [#kbf7e43b] #!/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"; } }