哪个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 );