perl如何想文件中写入位数不足左边补零的数字

Question

我需要打印0001,0002,0003,0004，不知道怎么格式化输出？多谢

Answer 1

for ( 1..10 ) {$num=(sprintf "%04d", $_);print "$num\n";}

追问

这个结果直接打印在控制台的，我想输入到文件中，有没有办法？谢谢

追答

open o, ">1.txt" or die $!; #自己可以改路径或者名称
for ( 1..10 ) {$num=(sprintf "%04d", $_);print o "$num\n";}

Answer 2

点开小地图边上的按钮，头像就默认可以移动了。关闭界面，头像自动锁定