Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
JEJE
JEFE
JUJE
  2. or download this
    #!/usr/bin/perl -w
use strict;
...
print join("|",@patterns), "\n";

#prints: JEJE|.EJE|J.JE|JE.E|JEJ.
  3. or download this
    for (my $i=0; $i<length($pattern); $i++)
{
...
   push @patterns, $pattern;
   substr ($pattern,$i,1) = $saved_char;
}