差分

この文書の現在のバージョンと選択したバージョンの差分を表示します。

この比較画面にリンクする

perl:expr_isnumeric [2016/03/26 19:39]
katsubemakito [サンプル]
perl:expr_isnumeric [2017/12/14 20:18]
ライン 1: ライン 1:
-====== 半角数字のみかチェックする - Perl ====== 
-~~socialite~~ 
-//​※この記事は2006年10月21日に書かれたものです。//​ 
- 
-例えば郵便番号や電話番号などのチェックに、半角数字のみかをチェックをしたい。このような場合には、正規表現を用いると良い。 
- 
-===== サンプル ===== 
-<code perl> 
-;# 
-;#​入力チェック 
-;# 
- 
-if( isNumeric('​abc123'​) ){ 
-  print "​数字だけ\n";​ 
-} 
-else{ 
-  print "​数字以外\n";​ 
-} 
- 
- 
-#​--------------------------------------- 
-#​数字のみかチェックする 
-#​--------------------------------------- 
-sub isNumeric{ 
-  my $str = shift; 
- 
-  #-- 数字のみか --# 
-  if( $str =~ /​^[0-9]{1,​}$/​ ){ 
-    return(1); 
-  } 
-  #-- 数字以外が含まれる --# 
-  else{ 
-    return(0); 
-  } 
-} 
-</​code>​ 
- 
-「''​{1,​}''​」は1以上という意味の量指定子を用いているが、「''​[0-9]+''​」などのように「''​+''​」で表現しても良い。ただ個人的には見た瞬間に理解できる方がオススメ。 
- 
-===== 関連書籍 ===== 
-{{amazon>​jp:​4774172707}} 
-<​html><​p style="​clear:​both"></​p></​html>​ 
- 
-{{amazon>​jp:​4774177407}} 
-<​html><​p style="​clear:​both"></​p></​html>​ 
- 
-{{amazon>​jp:​4873113008}} 
-<​html><​p style="​clear:​both"></​p></​html>​ 
- 
-{{tag>​CGI・Perl例文集 Perl 正規表現 半角数字 validation}} 
-~~socialite~~