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

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

ユーザ用ツール


サイドバー

言語

サーバ関連

ツール

API

読み物

その他

perl:expr_isalphanumeric

半角英数字のみかチェックする - Perl

この記事は2006年10月21日に書かれたものです。

入力内容が半角英数字のみかチェックしたい。これも正規表現で簡単に実現できる。「半角数字のみのチェック」「半角英字のみのチェック」の合わせ技だ。

サンプル

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

[a-zA-Z0-9]の部分は、\wでも良い。この2つは同義である。ただパッと見てわかりやすい方を採用した方が後々ぐぐらなくてもすむ。正規表現が長くなる場合などに短縮として用いる方法が適しているだろう。

関連書籍

failed to fetch data: unkown error

failed to fetch data: unkown error

failed to fetch data: unkown error

関連ページ

perl/expr_isalphanumeric.txt · 最終更新: 2020/06/23 14:10 (外部編集)