Help for this page

Select Code to Download


  1. or download this
    if ($str =~ /[^a-zA-Z0-9.]/) {
   die("Bad data\n");
}
  2. or download this
    if ($str =~ /[^[:alpha:][:digit:].]/) {
   die("Bad data\n");
}
  3. or download this
    if (!($str =~ /^[a-zA-Z0-9.]*\z/)) {
   die("Bad data\n");
}
  4. or download this
    if (!($str =~ /^[[:alpha:][:digit:].]*\z/)) {
   die("Bad data\n");
}