Какой модуль 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 );