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

Question

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

我有temp＆amp; temp1个文件夹。在temp1内，我有1,000个.txt个文件，其名称为1.txt，2.txt，3.txt ...＆amp;在temp文件夹中，我有名为1，2，3的子目录。

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

我需要自动复制.txt文件的内容，并粘贴到temp子目录中的相应文件中。是否可以使用Perl执行此操作？

Answer 1

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