如何在 Perl 中检查一个文件的内容是否存在于另一个文件中？

Question

要求：-

File1 的内容类似于 -

ABCD00000001,\some\some1\ABCD00000001,Y,,5（表示单元内共有5个文件）

File2 的内容为ABCD00000001

所以我需要做的是检查来自 File2 的 ABCD00000001 是否存在于 File1 中 - 如果是{

将输出打印到 Output.txt 直到找到另一个 ',Y,,X'}

else{ 不继续检查}

有人吗？非常感谢任何帮助。

您好 Arkadiy 输出应该是：- 文件 2 -ABCD00000001 中的文件 1 和从 Y 到 Y 的任何文件名。 例如：- 文件 1 结构将是：-

ABCD00000001,\some\some1\ABCD00000001,Y,,5
ABCD00000001,\some\some1\ABCD00000002
ABCD00000001,\some\some1\ABCD00000003
ABCD00000001,\some\some1\ABCD00000004
ABCD00000001,\some\some1\ABCD00000005
ABCD00000001,\some\some1\ABCD00000006,Y,,2
so out put should contain all line between 
ABCD00000001,\some\some1\ABCD00000001,Y,,5 and

ABCD00000001,\some\some1\ABCD00000006,Y,,2

#!/usr/bin/perl -w
use strict;


my $optFile = "C:\\Documents and Settings\\rgolwalkar\\Desktop\\perl_scripts\\SampleOPT1.opt";
my $tifFile = "C:\\Documents and Settings\\rgolwalkar\\Desktop\\perl_scripts\\tif_to_stitch.txt";
print "Reading OPT file now\n";
open (OPT, $optFile);
my @opt_in_array = <OPT>;
close(OPT);

foreach(@opt_in_array){
    print();
}

print "\nReading TIF file now\n";

open (TIF, $tifFile);
my @tif_in_array = <TIF>;
close(TIF);

foreach(@tif_in_array){
    print();
}

所以它所做的就是读取 2 个文件“仅供参考 -> 我是编程新手”

Answer 1

尝试将您的问题分解为离散的步骤。看来你需要这样做（虽然你的问题不是很清楚）：

• 打开文件1进行阅读
• 打开文件2进行阅读
• 逐行读取file1：
  • 对于file1中的每一行，检查file2中是否有特定内容

你在哪个部分有困难？到目前为止你有什么代码？一旦你在内存中有一行，你可以使用正则表达式将它与另一个字符串进行比较，或者更简单的比较形式。

Answer 2

好的，我会咬（部分）...

第一个通用 cmets。使用 strict 和 -w 很好，但您没有检查打开的结果或明确说明您想要的读/写模式。

您的 OPT 文件的内容有点像 CSV，第二个字段看起来像 Windows 路径，对吗？如果是这样，请使用 CPAN 中的相应库来解析 CSV 并验证您的文件名。否则会导致痛苦和痛苦……

正如 Ether 之前所说，您需要读取文件 OPT 然后匹配您想要的字段。如果第一个文件是 CSV，首先您需要在不破坏文件名的情况下对其进行解析。

这是一个小型的 sn-p，它将解析您的 OPT 文件。此时，它所做的只是打印字段，但您可以添加逻辑以轻松匹配其他文件。只需将 (slurp) 整个第二个文件读入一个字符串，并与您选择的第一个字段匹配：

#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;

my $csv = Text::CSV->new();
my @opt_fields;


while (<DATA>) {
    if ($csv->parse($_)) {
        push @opt_fields, [ $csv->fields() ];
    } else {
        my $err = $csv->error_input;
        print "Failed to parse line: $err";
    }
}


foreach my $ref (@opt_fields) {
#   foreach my $field (@$ref) { print "$field\n"; }
    print "The anon array: @$ref\n";
    print "Use to match?: $ref->[0]\n";
    print "File name?: $ref->[1]\n";
}

__DATA__
ABCD00000001,\some\some1\ABCD00000001,Y,,5
ABCD00000001,\some\some1\ABCD00000002
ABCD00000001,\some\some1\ABCD00000003
ABCD00000001,\some\some1\ABCD00000004
ABCD00000001,\some\some1\ABCD00000005
ABCD00000001,\some\some1\ABCD00000006,Y,,2