在Perl中复制文件时需要显示进度条

cpan File::Copy
cpan Term::ProgressBar

use File::Copy;
use Term::ProgressBar;

sub copy_with_progress {
    my ($source, $destination) = @_;

    my $total_size = -s $source;
    my $progress = Term::ProgressBar->new({count => $total_size, name => 'Copying', ETA => 'linear'});

    open(my $in, '<', $source) or die "Cannot open source file: $!";
    open(my $out, '>', $destination) or die "Cannot open destination file: $!";

    binmode($in);
    binmode($out);

    my $buffer;
    my $bytes_copied = 0;

    while (read($in, $buffer, 4096)) {
        print $out $buffer;
        $bytes_copied += length($buffer);
        $progress->update($bytes_copied);
    }

    close($in);
    close($out);

    $progress->update($total_size);
    $progress->message("Copy completed");
}

# 调用copy_with_progress函数进行文件复制
copy_with_progress('source_file', 'destination_file');