Help for this page

Select Code to Download


  1. or download this
    $T = qr//;
$U = qr//;
...
my ($t, $u) = ($1, $2);
print $t =~ /$T/ ? "pass1, " : "fail1, ";
print $u =~ /$U/ ? "pass2\n" : "fail2\n";
  2. or download this
    $T = qr/./;
  3. or download this
    print $t =~ /(?:$T)/ ? "pass1, " : "fail1, ";