perl 相等字符串即使相等也返回 0

Question

Perl 继续让我感到惊讶。我有一个代码，它从命令行获取输入并检查它是否在文件中。我有一个这样的文件：

ls

日期

密码

触摸

rm

首先我将这个文件读为

open(MYDATA,"filename") or die "Can not open file\n";
@commandlist = <MYDATA>;
chomp @commandlist;
close MYDATA;

参数在 $commandname 变量中。为了检查它是否正确，我打印到屏幕上。

print $commandname."\n";

效果很好。然后我写代码。

$count = @commandlist;
for($i=0;$i < $count;$i++)
{
    print $commandname;
    print $commandlist[$i];
    print "\n";
    if($commandname eq $commandlist[$i])
    {
        print "equal\n";
    }
}

并且它不打印'equal'。但它应该这样做，因为 $commandname 变量具有文件中的值 'ls'。我还打印 $commandname 和 $commandlist[$i] 的值以查看它们是否“明显”相等，然后我得到输出：

ls
lsls
lsdate
lspwd
lstouch
lsrm

在这里我看到他们得到了相同的值，但为什么 eq 运算符从不计算为零。 此外，为了完成这项任务，我尝试了各种方法，所有这些方法都变得无用，例如从数组中生成哈希并使用存在。 我为这个看似简单的问题苦苦挣扎了一天，但我就是不明白。 提前致谢

编辑： 当我改变上面的循环如下

$count = @commandlist;
for($i=0;$i < $count;$i++)
{
    print $commandlist[$i];
    print $commandname;
    print "\n";
    if($commandname eq $commandlist[$i])
    {
        print "equal\n";
    }
}

我得到了类似的输出。

ls
ls
lste
lsd
lsuch
ls

似乎由于某种原因它覆盖了某些字符。

编辑：

我的整个脚本是这样的：

#reading file code, i posted above
while(<>)
chomp($_);
$commandname = $_;
if($commandname eq "start"){
##something here
} elsif ($commandname eq "machines"){
##something here
} else {

    $count = @commandlist;
    for($i=0;$i < $count;$i++)
    {
        print $commandlist[$i];
        print $commandname;
        print "\n";
        if($commandname eq $commandlist[$i])
        {
            print "equal\n";
        }
    }

}

Answer 1

代码中的一些更改会导致您要查找的内容，在将其放入比较之前从数组中“选择”字符串。在这里

chomp $commandlist[$i];

if($commandname eq $commandlist[$i])
{
    print "equal\n";
}

编辑：根据 perldoc chomp，当您选择列表时，您应该加上括号。所以，在你的情况下......而不是简单地说

chomp @commandlist 

让它喜欢

chomp(@commandlist)

最终编辑：我试过了，效果很好。试试看

$commandname = $ARGV[0];

open(MYDATA,"chk.txt") or die "Can not open file\n"; 
@commandlist = <MYDATA>; 
chomp(@commandlist);
close MYDATA; 

print $commandname."\n"; 

$count = @commandlist;
print $commandname; 
for($i=0;$i < $count;$i++) 
 {

 print $commandlist[$i]; 
 print "\n"; 
 if($commandname eq $commandlist[$i]) 
 {   
  print "equal\n";   
 } 
 }

Answer 2

覆盖表示存在 CR。这些行以CRLF 结尾，但您只需删除LF 和chomp。改变

while (<>) {
    chomp($_)

到

while (<>) {
    s/\s+\z//;

Answer 3

您可以考虑将代码重组为：

my $path='filename';
my $match='ls';

第 1 部分 - 读取文件

open(my $fh, '<', $path) or die "failed to open $path: $!";
my @commandlist=<$fh>;
chomp @commandlist;  
# or you can combine these lines as: 
#    chomp(my @commandlist=<$fh>);
# because chomp operates on the array itself rather than making a copy.
close($fh);

或

use File::Slurp qw/ read_file /; 
# see http://search.cpan.org/dist/File-Slurp/lib/File/Slurp.pm

my @commandlist=read_file($path);  # result is pre-chomped!

第 2 部分 - 检查匹配项

foreach my $command (@commandlist) {
  print "$match equals $command\n" if $match eq $command;
}

一个重要的考虑因素是文件中的每一行必须只包含命令名称，并且不能以任何空格或制表符开头或结尾。要补偿可能的前导或尾随空格，请尝试：

foreach my $command (@commandlist) {
  $command=~s/^\s+|\s+$//g; # strip leading or trailing whitespace
  print "$match equals $command\n" if $match eq $command;
}

最后，始终从 Perl 开发人员最好的朋友开始您的 Perl 脚本：

use strict;
use warnings;

它将捕获大多数（如果不是全部）由草率的编程实践引起的错误。 （我们都为此受苦！）