Help for this page

Select Code to Download


  1. or download this
    if ( $s =~ $$hash{ "s" }) 
     { print "\t1 ok\n";}else { print "\t1 NOK\n";

if ($d =~ $$hash{ "p1" }){ print "\t2 ok\n";}else{ print "\t2 NOK\n";}
!
  2. or download this
    1 ok #is returned even when the hash doesn't have a corresponding valu
+e for $s.
3 NOK #this works correct for $p1?
  3. or download this
    #!/usr/local/bin/perl
#title "Multiple Test Regex Does not work the way I expect";
...
                }else {
                         print "\t4 NOK\n";
                         }