■

メールアドレス判定

if( isMailAddress('m.ka-tsu-be@ichikoro.com') ){
  print "メールアドレスです。\n";
}
else{
  print "メールアドレスではありません。\n";
}


#---------------------------------------
#メールアドレスかチェックする
#---------------------------------------
sub isMailAddress{
  my $str = shift || return(undef);

  #-- メールアドレスか --#
  if( $str =~ /^([a-zA-Z0-9\.\-\/_]{1,})@([a-zA-Z0-9\.\-\/_]{1,})\.([a-zA-Z0-9\.\-\/_]{1,})$/ ){
    return(1);
  }
  #-- メールアドレスではないか --#
  else{
    return(0);
  }
}