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

谁能告诉我一个Perl模块，它带有一个函数，可以像这样转换数字：

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

---

没有模块，只有sprintf，尽管参数的顺序不同，并且有一个合适的格式参数：

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

---

实际上，您不需要颠倒参数的顺序，在sprintf:print sprintf（“%0*2$d”，23，4）中使用位置修饰符（$）；返回0023。如果要使用双引号字符串（“”或qq{}），则需要转义$。