半角英数字のみかチェックする - 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);
  }
}