哪个Perl模块可以使用可变数量的前导零来格式化数字？

Question

有人可以告诉我一个带有函数的Perl模块，它会转换这样的数字：

func( 1, 3 ) # returns 001 
func( 23, 4 ) # returns 0023
func( 7, 2 ) # returns 07

Answer 1

没有模块，只是sprintf，尽管其他顺序中的参数和合适的格式参数：

sprintf( '%0*d', 3, 1 );
sprintf( '%0*d', 4, 23 );
sprintf( '%0*d', 2, 7 );