像这样，使用Perl的rename：

$ rename -n 's/\d+/sprintf "%.4d", ++$main::c/e' ./im*.jpeg
rename(./im.0006.jpeg, ./im.0002.jpeg)
rename(./im.0011.jpeg, ./im.0003.jpeg)
rename(./im.0016.jpeg, ./im.0004.jpeg)

删除-n开关，又名 * 试运行 * 当您的尝试是令人满意的重命名为真实的的。
没有im.0001.jpeg，因为它已经存在。

试试这个循环：

#!/bin/bash

files=$(printf '%s\n' im.*.jpeg)

index=1

for file in $files
do
  mv "$file" "im.$(printf '%04d' $index).jpeg"
  index=$((index+1))
done

你要求sed/awk，所以可能不想要循环等....试试这个：

printf "%s\n" *|awk -F . '{ if ($2==NR) next;printf "mv %s im.%4.4i.jpeg\n",$0,NR}'|sh

小心检查是否有相同的源和目标名称，因为它当前依赖于当前编号周围的点。
如果可能的错误（当前编号可能已经适合第一行）不会打扰您的私人安宁，您可以消除if ($2==NR) next;和evtl。