比较两个文件中的数字,并使用perl编程获得匹配的数字

#!/usr/bin/perl

use strict;
use warnings;

my $file1 = "file1.txt";
my $file2 = "file2.txt";

open my $fh1, '<', $file1 or die "Could not open file $file1: $!";
open my $fh2, '<', $file2 or die "Could not open file $file2: $!";

my %data1;
my %data2;

while (<$fh1>) {
    chomp;
    $data1{$_} = 1;
}

while (<$fh2>) {
    chomp;
    $data2{$_} = 1;
}

my %matching_numbers;

for my $number (keys %data1) {
    next if $data2{$$number};
    $matching_numbers{$number} = 1;
}

print "Matching numbers: ";
for my $number (keys %matching_numbers) {
    print $number, " ";
}

close $fh1;
close $fh2;