Help for this page

Select Code to Download


  1. or download this
    C:\test>\perl22\bin\perl 1176081.pl -WIDTH=1000 -HEIGHT=1000
yr() took 2.551594
...
buk2() took 0.681494
buk3() took 0.167000
dave() took 0.127978
  2. or download this
        while( substr( $$str, $y * $WIDTH, $WIDTH ) =~ m[((.)\2*)]mg ) {
    ...
  3. or download this
            my $ref = \substr( $$str, $y * $WIDTH, $WIDTH );
        while( $$ref  =~ m[((.)\2*)]mg ) {