我有一个简单的Perl脚本,用于比较两个文件。我将结果写入UTF8 BOM编码的不同文件中。为了将文本保存在BOM文件中,我在结果文件的开头打印chr(65279)。有时输入文本已经包含了文本开头的BOM字符,而我的脚本会再次打印一次。
问题是:如何解决这个问题,避免重复打印BOM字符。
以下是我的Perl代码文本:
问题是:如何解决这个问题,避免重复打印BOM字符。
以下是我的Perl代码文本:
use strict;
use warnings;
use List::Compare;
use Cwd 'abs_path';
use open ':encoding(utf8)';
use open IO => ':encoding(utf8)';
open F, "<$ARGV[0]" or die $!;
open S, "<$ARGV[1]" or die $!;
my @a=<F>;
my @b=<S>;
close F;
close S;
my $lc = List::Compare->new(\@a, \@b);
my @intersection = $lc->get_intersection;
my @missing = $lc->get_unique;
my @extra = $lc->get_complement;
open EXTRA, ">".$ARGV[2]."file_extra.txt" or die("Unable to open the file");
open MISSING, ">".$ARGV[2]."file_missing.txt" or die("Unable to open the file");
open SUBTRACTED, ">".$ARGV[2]."file_subtr.txt" or die("Unable to open the file");
#Turn on UTF-8 BOM support
print EXTRA chr(65279);
print MISSING chr(65279);
print SUBTRACTED chr(65279);
print MISSING @missing;
print EXTRA @extra;
print SUBTRACTED @intersection;
close MISSING;
close EXTRA;
close SUBTRACTED;