从perl中的目录递归文件删除

Question

我是 perl 脚本的新手。我想编写 perl 来删除以前的备份文件并从保管箱中提取新的备份文件并用特定的文件名重命名。

例子：

备份位置：

D:\Database\store_name\ 包含.bak 文件

实际文件夹数据 D:\Database\Mahavir Dhanya Bhandar\ 包含 .bak 文件

D:\Database\Patel General Store\ 包含.bak 文件

..等等

1. 如何编写删除*.bak文件store_recursively的perl脚本代码 2.从保管箱中提取新的备份文件并用特定的文件名重命名。

Answer 1

您是否考虑过遍历文件树。 http://rosettacode.org/wiki/Walk_a_directory/Recursively。将此与简单的文件操作（复制、删除等）结合起来，您应该会很好。

use File::Find qw(find);

my $dir = "D:\Database\Store_Name";

find sub {unlink $File::Find::name if /\.bak$/}, $dir;

并假设 connectToDropbox() 连接到您的保管箱

use File::Copy;
use File::Find qw(find);

my $backup = connectToDropbox();
my $dir = "D\Database\Store_Name";

find sub {copy($backup -> getFile("file"), "newFile")} $dir;

当然，这假设您已经可以建立与 Dropbox 的连接等。如果没有，有一个不错的 CPAN 库here 你可以去看看。