perl - 如何使用 shell 或 perl 在目录中所有 .c 文件的开头添加 2 行

Question

我在一个目录中有很多 .c 文件和 .h 文件。我需要在所有 .c 的开头添加注释，例如“//INFO:这是 raj 编写的 C 文件”。你能告诉如何用脚本做到这一点吗？

Answer 1

听起来像是一次性的任务，所以一个简单的方法是做这样的事情:

for x in *.c *.h; do
    echo "//INFO This is C Files written by raj" > $x.temp-file
    cat $x >> $x.temp-file
    mv $x.temp-file $x
done

当然，请务必先备份文件。