Help for this page

Select Code to Download


  1. or download this
    for (split //, $template) {
    print ord == 0 ? '.' : 'X';
}
print "\n";
  2. or download this
    $template =~ tr/\0/X/c;
$template =~ tr/\0/./;
print "$template\n";
  3. or download this
    print "position $-[0] is not conserved\n" while $template =~ /[^\0]/g;