Help for this page

Select Code to Download


  1. or download this
    C:\test>1176081 -WIDTH=1000 -HEIGHT=1000
yr() took 330.252300
buk() took 1.584859
buk2() took 1.277809
buk3() took 0.226701
  2. or download this
  3. or download this
    sub buk3{
    my $str = shift;
...
buk() took 1.068071
buk2() took 0.681810
buk3() took 0.160666
  4. or download this
    C:\test>\perl22\bin\perl 1176081.pl -WIDTH=10000 -HEIGHT=10000
yr() took 12.714030
buk() took 110.152981
buk2() took 70.100982
buk3() took 8.158657