perl——使用sprintf函数对变量n位补零

使用sprintf函数控制变量为4位，并在前面补零。
在变量循环加1时，得到的结果依次为0000, 0001 … 0012, 0013…

my $stage = 0;
my $post_stage= sprintf("%04d",$stage);