如何重新组织Perl中的目录结构？

Question

我正在编写重命名/复制文件内容的脚本。

我有temp & temp1文件夹。里面temp1我有1000个.txt文件与名称1.txt，2.txt，3.txt ... &在temp文件夹我有一个名为1，2，3子目录。

在文件夹1，2，3 ......，我有一个文件扩展名为java或xml。

我的需求是自动化.txt文件内容的副本，并粘贴到temp子目录中的相应文件中。使用Perl可以做到这一点吗？

Answer 1

请参阅perldoc -f rename。您可以在循环中重命名文件。