判断两个文件夹内文件是否更新，并将更新的文件压缩

CSDN解答，移来备忘

一个新文件夹中和一个旧文件夹，里面的大部分内容相同，因为是实现更新的，两个文件夹里面都分了很多的文件和子目录，现在要把新文件夹里面的文件和旧文件夹里面的文件不同的给抓下来，放到一个zip包里面，文件的路径不变，比如，旧文件夹中有1，2，3，4，5，6文件，新文件夹中有1，2，3，4，5，6，7，8文件，里面3，4文件名相同，但内容不同，要把3，4，7，8给copy下来放在一个zip包里面

use strict;
use warnings;
use File::Find;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
use File::Basename;
use Text::Diff;

my $oldroot = './test/old'; #old folder
my $newroot = './test/new'; #new folder
my $zip_file = './test/updated/updated.zip'; #zip folder

my %old;
my @updated_lists;

find(\&handle_olddir, $oldroot);
find(\&handle_newdir, $newroot);
archive_files(@updated_lists);

sub handle_olddir
{
    my $file = $File::Find::name;
    $old{$file} = 1 if -f $file;
}

sub handle_newdir
{
    my $file = $File::Find::name;
    return if -d $file;

    my $tmpfile = $file;
    $tmpfile =~ s/new/old/;
    if($old{$tmpfile})
    {
        my $diff = diff $_, $tmpfile, { STYLE => "Context" };
        return unless length $diff;
    }
    push @updated_lists, $file;
}

sub archive_files
{
    my @files = @_;
    if ($#files == -1)
    {
        print "No updated files!";
        return;
    }

    my $zip = Archive::Zip->new();
    for(@files)
    {
        my $achive_path = $_;
        $achive_path =~ s/\.\/test\/new//;
        $zip->addFile( $_, $achive_path);
    }

    if (-e "$zip_file")
    {
        print "Could not write to $zip_file: $!" unless $zip->overwrite() == AZ_OK;
    }
    else
    {
        print "Could not write to $zip_file: $!" unless $zip->writeToFileNamed("$zip_file") == AZ_OK;
    }
}