Quel module Perl peut formater un nombre avec un nombre variable de zéros en tête?

Question

Quelqu'un pourrait-il me dire un module Perl avec une fonction, qui convertit les chiffres comme ceci:

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

Answer 1

Aucun module, juste sprintf, mais avec les arguments dans l'autre ordre et un argument de format adapté:

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