とあるエンジニアの闇歴史帳

コピペで使える便利Wiki ※現在構築中です。

ユーザ用ツール


perl:expr_isalphanumeric

差分

このページの2つのバージョン間の差分を表示します。

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

perl:expr_isalphanumeric [2017/12/14 20:18]
perl:expr_isalphanumeric [2020/06/23 14:10] (現在)
行 1: 行 1:
 +====== 半角英数字のみかチェックする - Perl ======
 +~~socialite~~
 +<note important>この記事は2006年10月21日に書かれたものです。</note>
 +
 +入力内容が半角英数字のみかチェックしたい。これも正規表現で簡単に実現できる。「半角数字のみのチェック」「半角英字のみのチェック」の合わせ技だ。
 +
 +===== サンプル =====
 +<code perl>
 +#!/usr/bin/perl
 +;#
 +;#入力チェック
 +;#
 +
 +if( isAlNum('abc123') ){
 +  print "英数字だけ\n";
 +}
 +else{
 +  print "英数字以外\n";
 +}
 +
 +
 +#---------------------------------------
 +#英数字のみかチェックする
 +#---------------------------------------
 +sub isAlNum{
 +  my $str = shift || return(undef);
 +
 +  #-- 英数字のみか --#
 +  if( $str =~ /^[a-zA-Z0-9]{1,}$/ ){
 +    return(1);
 +  }
 +  #-- 英数字以外が含まれる --#
 +  else{
 +    return(0);
 +  }
 +}
 +</code>
 +
 +''[a-zA-Z0-9]''の部分は、''\w''でも良い。この2つは同義である。ただパッと見てわかりやすい方を採用した方が後々ぐぐらなくてもすむ。正規表現が長くなる場合などに短縮として用いる方法が適しているだろう。
 +
 +===== 関連書籍 =====
 +{{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~~
  

関連ページ