使用perl从两个文本文件中删除重复项（这两个文本文件是另一个perl脚本的输出）

Question

have written one perl script which gives two textfile as output. The first text file contains value like below, 0900 0915 0930 0945 1000 1015 1030 1045 1100 ~ and the second text file contains values like this, 0900 0915 0930 1000 1015 1030 1100 I want to compare two files and remove the match values and display the mismatch value in a textfile.The output should be 0945 1045 I tried with the below code,

#!/usr/bin/perl
use strict;
use warnings;

$\="\n";

open my $fh1, '<', 'textfile1.txt' or die $!;
open my $fh2, '<', 'textfile2.txt' or die $!;
open my $out, '>', 'output.txt' or die $!;

chomp(my @arr1=<$fh1>);
chomp(my @arr2=<$fh2>);

foreach my $x (@arr1){
        print $out $x if (!grep (/^\Q$x\E$/,@arr2));
}

close $fh1;
close $fh2;
close $out;

But Im getting textfile1 contents as output which is not expected output. If I create a new textfiles with the same values manually and executes it works fine. Since this text files are output of my perl script. I think its not taking this as input properly. Could someone please help me on this?

Answer 1

It seems your input file doesn't contain those numbers in separate lines, otherwise your code works just fine.

Try adding following lines before foreach loop

@arr1 = split (' ', join (' ', @arr1) );
@arr2 = split (' ', join (' ', @arr2) );