perl 新手... 有 chomp 问题

Question

我正在尝试学习 perl 编程并使用它来读取比赛中的文件；

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

open(FILE, <~/source/test.txt>);
@array = <FILE>;
$number = shift @array;

while($number--) {
    chomp($key = shift @array);
    chomp($message = shift @array);

    print "Key: $key";
    print "Message: $message";
}
print "\n";
close(FILE);

该文件包含一个数字 N，然后是 2 * N 行，其后是有多少键/消息对。

但是当我执行这个程序时，它只打印出最后一条“消息”而没有其他任何内容......它不会打印任何其他内容。如果我删除 chomps 它会按预期工作，但有了 chomps 那里它只会​​切断一切......有什么想法吗？

//编辑：去掉-w

Answer 1

您正在 unix 机器上读取 DOS/Win 文本文件。使用chomp，您将删除“CRLF”的“LF”，但留下“CR”，导致所有行一个接一个地显示。

#!/usr/local/bin/perl -w
use strict;   # Do use this!
use warnings;

open(my $fh, '<', "$ENV{HOME}/source/test.txt") or die $!;
my @array = <$fh>;
s/\s+\z// for @array;  # Universal chomp

my $number = shift(@array);
while ($number--) {
   my $key     = shift(@array);
   my $message = shift(@array);

   print "Key: $key\n";
   print "Message: $message\n";
}