Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
  my $newName = sprintf ("%03s%06d%02d", $prefix, $midCount, $suffix);
  print "$oldName -> $newName\n"
  }
  2. or download this
    __DATA__
22200010001
...
22200010102 -> 22200000202
22200010103 -> 22200000203
22200010201 -> 22200000301