Help for this page

Select Code to Download


  1. or download this
    
my $matched = ( 'GCGAT' ^ 'GNGAT' ) =~ tr[\0][\0];
  2. or download this
    $xord = 'GCGAT' ^ 'GNGAT';;

print unpack 'C*', $xord;;
0 13 0 0 0
  3. or download this
    $matched = ( 'GCGAT' ^ 'GNGAT' ) =~ tr[\0][\0];;

print $matched;;
4
  4. or download this
    if(  $matched >= ( length( $q ) -1 ) ) {
    ## we have a winner