Help for this page

Select Code to Download


  1. or download this
    if ( $scalar !~ /[^12345]/ ) {
  print "match";
}
  2. or download this
    if ( $scalar =~ /[^12345]/ ) {
  print "Illegal parameter: $scalar";
} else {
  print "Acceptable parameter: $scalar";
}