perl - 比较 2 个字符串，一个来自文件，一个来自声明

Question

该程序不会打印字符串是否相等，但是当它们打印时，它们似乎是相同的......请有人解释一下

#!/usr/bin/perl

$str =  "print \"I want this to work\\n\";";
print $str."\n";
open FILE, "<", "check2.doc" or die "buhuhuhu";
my $str2;
while (<FILE>) {
$str2 = $_;
}
close FILE;
print "$str2\n";
if ( $str eq $str2) {
print "they are equal\n";

但是当输出出现时，由于第二个字符串 $str2 在底部有这条额外的行

print "I want this to work\n";
print "I want this to work\n";
-----empty line-----

这是文件 check2.doc

print "I want this to work\n";

有谁知道他们为什么不相等？？？

Answer 1

文件中的行由

$str."\n"

当然不等于

$str

您需要删除尾随的换行符。

my $str2 = <FILE>;
chomp($str2);

Answer 2

读取的文件包括\n，因此您必须将其删除：

$str2 = $_;
chomp $str2;

而且，如果您的文件只有一行，请将 while 循环替换为：

$str2 = <FILE>;
chomp $str2;