Help for this page

Select Code to Download


  1. or download this
    substr("0000$1",-4)
    sprintf"%04.4d",$1
    substr("0"x$maxdigs.$1,-$maxdigs)
    sprintf"%0$maxdigs.$maxdigs"."d",$1
    
  2. or download this
    grep{s/(^|\D)0+(\d)/$1$2/g,1} sort
    grep{s/(\d+)/sprintf"%06.6d",$1/ge,1} @sects;