perl - 我如何检查我是否在 Perl 中下载了整个文件？

Question

文件大小的测试在这里有意义吗？我试图在下载时切断连接，但似乎从未达到尺寸测试。

#!/usr/bin/env perl
use warnings; 
use strict;
use 5.012;
use LWP::Simple;

my $url = 'http://www.kernel.org/pub/linux/kernel/v2.6/next/patch-v2.6.34-rc5-next-20100428.bz2';
my $file = 'next_kernel.bz';
my $file_size = '3462166';

my $response = getstore( $url, $file );
if ( is_success $response ) {
    if ( $file_size == -s $file ) {
        say "OK";
    }
    else {
        say "Not OK";
    }
}

Answer 1

如果您只是想练习测试代码，请输入错误的文件大小并断言您的下载不“正常”。如果您想测试中止连接会发生什么情况，您需要一个更大的文件——2342 字节的下载应该只需要几分之一秒。