Help for this page

Select Code to Download


  1. or download this
    $_="JUST ANOTHER PERL HACKER,";use GD;$i=new GD::Image(113,350);$i->fi
    +ll
    (0,0,$i->colorAllocate(255,255,255));s#.{5}#$d=5;@a=($q=0,map{$d+=$f++
    +%2
    ...
    .$_.C,"5A;eKYWc_3")-40<<1;$z=~s/./1^$&/eg;$m=reverse$z;${qw.l m m l l 
    +m.
    [$c++%12]||z}}}101,splice(@a,0,6,"01010"),@a,101;$y+=70#eg;print$i->pn
    +g
    
  2. or download this
    # perl ean-13.pl > out.png