Help for this page

Select Code to Download


  1. or download this
    my $str  = 'AGACGAGTA';

...
$res =~ s/\x00/x/g;

print("$res\n");
  2. or download this
    my $str = 'AGACGAGTA';

...
my $res = ($str & $mask) | ($x & ~$mask);

print("$res\n");
  3. or download this
    my $str = 'AGACGAGTA';

...
substr($res, $_, 1, "x") for 2..6;

print("$res\n");