如何使用Perl来确定两个文件的内容是否相同？

发布时间：2020-12-15 21:11:53 所属栏目：大数据来源：网络整理

导读：这个问题来自于需要确保对代码所做的更改不会影响其输出到文本文件的值.理想情况下,我会滚动一个子文件来取得两个文件名,并返回1或返回0,这取决于内容是否相同,空格和所有内容. 鉴于文本处理是Perl的堡垒,应该很容易比较两个文件并确定它们是否相同(代码未经

这个问题来自于需要确保对代码所做的更改不会影响其输出到文本文件的值.理想情况下,我会滚动一个子文件来取得两个文件名,并返回1或返回0,这取决于内容是否相同,空格和所有内容.

鉴于文本处理是Perl的堡垒,应该很容易比较两个文件并确定它们是否相同(代码未经测试).

use strict;
use warnings;

sub files_match {

    my ( $fileA,$fileB ) = @_;
    open my $file1,'<',$fileA;
    open my $file2,$fileB;

    while (my $lineA = <$file1>) {

        next if $lineA eq <$file2>;
        return 0 and last;
    }

    return 1;
}

我想到的唯一方法(没有CPAN模块)是打开这两个文件,并逐行阅读,直到找到一个差异.如果没有发现差异,文件必须相同.

但这种做法有限而且笨拙.如果两个文件的总行不一致怎么办？我应该打开和关闭确定行数,然后重新打开扫描文本？呸.

我没有看到任何与perlfaq5有关的事情.我想远离模块,除非它们带有Perl 5.6.1核心的核心.

解决方法

在 core.

use File::Compare;

if (compare("file1","file2") == 0) {
  print "They're equaln";
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!