Question

我们希望创建一个报告，在磁带上的tar存档和磁盘上的文件之间进行MD5检查。我创建了一个应该执行此操作的脚本，但它使用tar文件工作正常，但在磁带上使用tar时会出错。 tar用gnu tar写成了磁带。

use strict; 
use warnings;
use Archive::Tar;
use Digest::MD5 qw(md5 md5_hex md5_base64);

my $tarfile = '/dev/rmt/1';
my $iter = Archive::Tar->iter( $tarfile, 1, {md5 => 1} ); 

print "------------ TAR MD5 -----------      ----------- FILE MD5 -----------     ----- File -----\n";

while( my $f = $iter->() ) { 
    if ($f->is_file != 0) {
        my $tarMd5 = md5_hex( $f->get_content); 
        my $filename = $f->full_path;

        my $fileMd5 = '';
        if (-e $filename) {
            open(HANDLE, "<", $filename);
            $fileMd5 = md5_hex(<HANDLE>);
        } else {
            $fileMd5 = "!!!!!!! FILE IS MISSING !!!!!!!!";
        }

        if ($tarMd5 eq $fileMd5) {
            print "$tarMd5 <--> $fileMd5 --> $filename\n";
        } else {
            print "$tarMd5 ><>< $fileMd5 --> $filename\n";
        }
    }

}

正如所说的那样，当使用基于文件的tar文件时它是正确的，但是当在磁带上使用tar时我们得到错误：

在check_archive.pl第12行的子例程条目中使用未初始化的值。在check_archive.pl第12行使用“strict refs”时，不能使用字符串（“”）作为子程序ref。我的$ f未定义。

Answer 1

在check_archive.pl第12行的子例程条目中使用未初始化的值。不能使用字符串（＆＃34;＆＃34;）作为子例程ref，而＃34; strict refs＆＃34;在check_archive.pl第12行使用。我的$ f未定义。

if ($f && $f->is_file != 0) {## NOT AN IMPORTANT WARNING...

...

if (-e $filename) { ## CHECK IF FILE EXISTS
    local $/="";    ## <= JUST ADD THIS FOR INSTANT OUTPUT (NO BUFFER)
    open(HANDLE, "<", $filename); ## CREATE A FILE HANDLE TO READ A FILE
    $fileMd5 = md5_hex(<HANDLE>); ## SEND HANDLE TO THE MD5 FUNCTION
}

...

使用MD5与perl archive :: tar比较磁带和磁盘上的文件失败

1 个答案: